Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.

Matvey0061 Matvey0061    1   15.03.2021 19:57    1

Ответы
nikita8989 nikita8989  14.04.2021 19:59

var

 p,n:integer;

begin

 write('Введите число: ');

 readln(n);

 p:=1;

 while n>0 do

   begin

     p:=p*(n mod 10);

     n:=n div 10;

   end;

 writeln('Произведение цифр: ',p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика