Напишите код на Паскаль Найти произведение цифр заданного целого четырехзначного числа.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
a)В нижеприведенной таблице применено условное форматирование.
Автор: Savelieva24
Как сохранить в программе SketchUp модель под соответствующим именем?
Автор: oksanakv1950
Напишите что выведет программа
Автор: osuvorova7979
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.