Tin học Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n

[Phùng Lê Toàn Chí]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n

 

[leanhc3dh]

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.

 

[ĐứcNhật!]

Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n

Program So_chan;
Uses crt;
Var n,i: longint;
Begin
clrscr;
Write('Nhap n: '); readln(n);
For i:=1 to n do
If i mod 2 = 0 then
Begin
Write(i:5);
End;
Readln
End.