. 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.