program Chernovik;
var a,p: integer;
begin
p:=1;
read(a);
while a>0 do
begin
p:=p*a mod 10;
a:=a div 10
end;
write (p)
end.
Объяснение:
p - произведение цифр числа, первоначально равно 1, т.к. от умножения на 1 число не изменяется
Ввод числа
Цикл с предусловием (пока число больше 0):
1) считаем произведение последней цифры числа
2) отбрасываем последнюю цифру числа
Вывод произведения цифр числа
div - целочисленное деление
mod - остаток от целочисленного деления
Программа работает для a>0
