Составить Паскаль программу для произведения цифр заданного четырёх знасного числа.
Составить Паскаль программу для произведения цифр заданного четырёх знасного числа.
Гость
Ответ(ы) на вопрос:
Гостьvar
pr, num: Integer;
begin
WriteLn('Введите число: ');
ReadLn(num);
pr := 1;
while num > 0 do begin
pr := pr * (num mod 10);
num := num div 10;
end;
WriteLn('Произведение чисел = ', pr);
ReadLn
end.
Не нашли ответ?
Похожие вопросы