Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу на паскале)
Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу на паскале)
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы