Question

ДАЮ 23 БАЛЛОВ!♥️Напишите программу для нахождения добутку цыфр натурального числа N (ПАСКАЛЬ)
СРОЧНО, ПОЖАЛУЙСТА ♥️

Answer 1

Ответ:

• var p, n: integer;
• begin
• readln(n);
• p := 1;
• while n <> 0 do
• begin
• if (n mod 10)<>0 then p := p * (n mod 10);
• n := n div 10;
• end;
• writeln(p);
• end.

Пример работоспособности: