Напишите программу в среде Pascal ABC, которая в последовательности чисел от 5 до 30 находит произведение чётных.

Question

Информатика

Агап

23 ноября, 18:45

Напишите программу в среде Pascal ABC, которая в последовательности чисел от 5 до 30 находит произведение чётных.

+2

Ответы (2)

Знаешь ответ?

Настасея · Answer 1

Program fofgogjoj;

Var

a: array [1 ... 100] of integer;

i, n, p: integer;

Begin

p:=1;

n:=30;

for i:=5 to n do

begin

a[i]:=i;

if i mod 2=0 then

p:=p*a[i];

end;

Writeln ('Произведение элементов массива с четными числами равно: ', p);

End.

Инесса · Answer 2

Инесса 23 ноября, 22:23

0

Это очень сложно, не могу