Найти произведение цифр заданного целого числа. Решить в паскале

Question

Найти произведение цифр заданного целого числа. Решить в паскале. Пишу вот такую команду но пишет ошибку. P: =1; {здесь будетпроизведение}while n > 0 do beginP: =P*(n mod 10); n: =n div 10; end;

Answer 1

65

vaskond

21 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить