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

Question

Информатика

Тарасыч

6 марта, 20:15

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

+3

Ответы (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.