Ответы
Ответ дал:
0
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.
Внимание! Если программа не работает, обновите версию!
begin
var (n,p):=(ReadInteger,1);
while n>0 do (p,n):=(p*(n mod 10),n div 10);
p.Println
end.
Ответ дал:
0
И всего-то дел...
Похожие вопросы
2 года назад
2 года назад
2 года назад
9 лет назад