Question

Viết chương trình in ra các số chẵn trong khoảng từ 1 đến n với n được in ra từ bàn phím.

Answer 1

program bt;

uses crt;

var n,i: integer;

begin

clrscr;

write('nhap so n vao day '); read(n);

for i:= 1 to n do i mod 2;

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

readln

end.

Answer 2

var n,i:integer;

begin

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

for i:=1 to n do

if i mod 2=0 then write(i,' ');

readln;

end.