Регистрация
MiyaGi228
21.11.2021 15:24
Информатика
Есть ответ 👍

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

127
216
Посмотреть ответы 2

Ответы на вопрос:

gay2002
gay2002
4,6(85 оценок)
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.
ксениякейт
ксениякейт
4,6(87 оценок)
Вpython нет цикла похожего на repeat until в pascal. поэтому обойдемся циклом while: a = int(max =awhile a! =0:     a = int(input(a))    if a > max:       max = aprint (max)

Популярно: Информатика