Составить программу, содержащую операторы ввода, вывода, присваивания. 9)Найти произведение всех цифр заданного четырехзначного числа.

Вопрос школьника по предмету Информатика

Составить программу, содержащую операторы ввода, вывода, присваивания.
9)Найти произведение всех цифр заданного четырехзначного числа.

Ответ учителя по предмету Информатика

program znanija;

var a, res:integer;

begin

res := 1;

write(‘Введите число: ‘);

readln(a);

while a>1 do

begin

res := res * (a mod 10);

a := a div 10;

end;

writeln(‘Произведение всех цифр = ‘, res);

end.