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

Question

Информатика

Даня

6 августа, 17:14

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

+1

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