Найти произведение цифр заданного целого числа. решить - вопрос №1592948 от noer2000 11.07.2021 10:55

Question

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

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