Написать программу для pascal. найти произведение цифр числа введенного с клавиатуры.

HKTOG HKTOG    1   29.07.2019 18:30    1

Ответы
Fluttershy0 Fluttershy0  03.10.2020 16:50
var n, p: integer;
begin
  read(n);
  p := 1;
  repeat
    p := n mod 10 * p;
    n := n div 10;
  until n = 0;
  write(p)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика