Составьте программу, которая находит произведение цифр заданного четырёхзначног
Составьте программу, которая находит произведение цифр заданного четырёхзначного числа . В Pascal ABC.ru
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
var n:=ReadInteger('Введите четырехзначное натуральное число:');
var p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
Не нашли ответ?
Похожие вопросы