Найти произведение цифр заданного целого числа. решить - вопрос №1593291 от lohotrontupoy65 25.01.2021 17:10

Question

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

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