. Viết chương trình in ra các số chẵn từ 2 đến 20 m.n ơi giúp e vs ạ
2 câu trả lời
Program baitap;
Uses crt;
Var i,n: integer;
Begin
clrscr;
Write(' Nhap so n: '); readln(n);
for i:= 1 to 20 do i mod 2 = 0 then write(i:3, ',')
readln
End.
Program Hotboy ;
Uses crt;
Var i: byte;
Begin
Clrscr;
For i:=2 to 20 do
If (i mod 2=0) then write('. ',i);
Readln
End.