Question

Elaborati un program Pascal care calculeaza suma numerelor pare

Answer 1

program nr;

var i, n :integer;

begin

write('n='); readln (n);

write('numerele pare din sir sunt:');

for i:=1 to n do

if i mod 2 = 0 then writeln(i);

readln;

end.