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

Question

Информатика

Олимпиада

8 января, 06:30

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

+1

Ответы (2)

Знаете ответ на вопрос?

Людаха · Answer 1

Людаха 8 января, 06:40

0

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

Надюня · Answer 2

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.