Найти произведение цифр заданного целого числа. - вопрос №1593625 от rjdfy 01.05.2020 06:02

Question

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

rjdfy · Answer

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....