Question

СРОЧНО РЕШИТЕЕЕ ПОЖАЛУЙСТА БУДУ ОЧЕНЬ БЛАГОДАРНАА

Answer 1

Ответ получается слишком большой.
const a=15;

type ma=array[1..a] of longint;

var mas:ma;

rez,i:longint;

begin

rez:=1;

for I:=1 to a do

begin

mas[i]:=I*4;

write(mas[i]:4);

end;

for i:=1 to a do 

begin

if mas[i] mod 2 = 0 then

rez:=rez* mas[i];


end;

writeln;

writeln('Результат:',rez);

end.