Решите задачу программированием линейных алгоритмов — Найти произведение цифр заданного четырехзначного числа. ПППППППОООООООММММОООООГГГГИИИИТТТТЕЕЕЕЕ!!!!!!

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

Решите задачу программированием линейных алгоритмов — Найти произведение цифр заданного четырехзначного числа.
ПППППППОООООООММММОООООГГГГИИИИТТТТЕЕЕЕЕ!!!!!!

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

var a,a1,a2,a3,a4,p:integer;

begin

write(‘a = ‘);

readln(a);

a1:=a div 1000;

a2:=a div 100 mod 10;

a3:=a mod 100 div 10;

a4:=a mod 10;

p:=a1*a2*a3*a4;

writeln(‘p = ‘,p);

end.

Пример:

a = 2354
p = 120