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.