Дано целое четырехзначное число. Вычислить произведение его цифр (создать…

Question

49

Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу напаскале)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

mp3sova · Accepted Answer

94

mp3sova

08 апреля 2023

Program proga; var a: integer; Begin readln (a); writeln (a div 1000)*(a mod 1000 div 100)*(a mod 1000 mod 100 div 10)*(a mod 1000 mod 100mod 10); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: