Stiu ca raspund c-am tarziu da mno! programul se face astfel:
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.
catalin542000 întreabă: