Сколько натуральных четных чисел нужно перемножить, чтобы полученное произведение стало шестизначным? - Pascal ABC
Формулировка задачи:
Сколько натуральных четных чисел нужно перемножить, чтобы полученное произведение стало шестизначным? Подсчитайте при помощи цикла.
Заранее спасибо!
Решение задачи: «Сколько натуральных четных чисел нужно перемножить, чтобы полученное произведение стало шестизначным?»
textual
Листинг программы
program Count;
var p, n, i: Integer;
begin
n:= 0;
p:= 1;
i:= 2;
repeat
n:= n+1;
p:= p*i;
i:= i+2;
until p>99999;
writeln('Количество множителей = ', n);
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д