Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
Выведите на экран четные числа до тех пор пока их произведение не станет больше заданного числа. в паскаль.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program evenNumbers;
var
multiplication, number: integer;
begin
multiplication := 1;
number := 10; // заданное число
while multiplication <= number do
begin
for number := 1 to number do
begin
if (number mod 2 = 0) then
begin
Write(number, ' ');
multiplication := multiplication * number;
end;
end;
end;
end.