Напишите программу, которая получает натуральные числа A и B (A

265

330

Посмотреть ответы 1

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

Popyliarnich

Информатика

4,6(45 оценок)

//прога на 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.