Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Напишите программу в среде Pascal ABC,которая в последовательности чисел от 5 до 30 находит произведение чётных.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program MultiplyEvenNumbers;
var
i, product: integer;
begin
product := 1;
for i := 5 to 30 do
begin
if i mod 2 = 0 then
product := product * i;
end;
writeln′Theproductofevennumbersfrom5to30is:′,product'The product of even numbers from 5 to 30 is: ', product′Theproductofevennumbersfrom5to30is:′,product;
end.