Найти произведение цифр заданного целого числа. - вопрос №1593123 от 364590 11.03.2020 19:14

Question

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

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