viết chương trình in ra màn hình các số chẵn từ 1 đến N

2 câu trả lời

Program Likervietnam;

Uses crt;

Var

n,i:integer;

Begin
Clrscr;

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

For i:=1 to n do

If i mod 2 = 0 then writeln(i);

Readln;

End.

Xin hay nhất ạ!

print(*[i for i in range(2,int(input())+1) if i%2==0])