Найти произведение цифр заданного целого числа. решить - вопрос №1592723 от Тамик999 29.08.2021 02:33

Question

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

Тамик999 · 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....