Question

Scrieți programul Pascal ce calculează produsul numerelor pare de la 1-50.

Answer 1

Program P1;

var A : array[1..50] of real;

        i : integer;  d : real;

begin

For i:=1 to 50 do read (A[i]);

for i : =1 to 50 do if not odd(i) then P : = p*i;

writeln(p);

end.