Задание:
Найти произведение цифр заданного целого числа. Решить в паскале. Пишу вот такую команду но пишет ошибку. P: =1; {здесь будетпроизведение}while n > 0 do beginP: =P*(n mod 10); n: =n div 10; end;
Решение:
program aaa; var a,b,d: integer; beginread (a); d: =1; while a> 0 do beginb: =a mod 10; a: =a div 10; d: =d*b; end; writeln (d); end.
Знаете другой ответ?