♥️Напишите программу для нахождения добутку цыфр натурального - вопрос №13104571 от irinagerasimova1 21.12.2021 02:18

Question

Информатика: ♥️Напишите программу для нахождения добутку цыфр натурального числа N (ПАСКАЛЬ

irinagerasimova1 · Answer

ответ: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.Пример работо...