viết chương trình in ra số chẵn nhỏ hơn hoặc bằng n(với n được nhập từ bàn phím)

2 câu trả lời

Program so_chan;
Use crt;
Var n, i: integer;
Begin
clrscr;
Write('Nhap so n ='); readln(n);
For i:=1 to n do
Begin
if i mod 2 = 0 then
write(i:6);
end;
readln;
end.

var n,i:longint;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

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

readln;

end.