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

Question

Информатика

Тарасыч

3 мая, 11:20

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ола · Answer 1

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.