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

Question

Информатика

Олимпиада

3 сентября, 09:16

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

+3

Ответы (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

Людаха 3 сентября, 10:54

0

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