Задано целое неотрицательное число. найти произведение - вопрос №9133144949 от Mizuki1111 03.11.2022 14:07

Question

Информатика: Задано целое неотрицательное число. найти произведение цифр. примеры: 949 выходные данные: 324

Mizuki1111 · Answer

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
var (n,p):=(ReadInteger,1);
while n>0 do (p,n):=(p*(n mod 10),n div 10);
p.Println
end.