Вводится двухзначное число,найти произведение цифр этого числа

Вводится двухзначное число,найти произведение цифр этого числа
Гость
Ответ(ы) на вопрос:
Гость
//прога на Pascal`e var n, sum: int64; begin write ('Введите число n: '); readln (n); n:=abs (n); sum:=1; while n>0 do begin sum:=sum*(n mod 10); n:=n div 10; end; write ('Произведение цифр числа n: ', sum); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы