Question

Viết chương trình nhập vào một số nguyên dương n. Hãy xuất ra các số chẵn từ 1 đến n. (vd: n =10 è xuất ra: 2 4 6 8 10)

Answer 1

program sochan;

uses crt;

var n,i:integer;

begin

readln(n);

for i:=1 to n do

begin

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

i=i+1;

end;

readln

end.