. Viết chương trình in ra các số chẵn từ 2 đến 20 m.n giúp e với ạ m.n đọc kỹ đề là viết chương trình xuất số chẵn ạ chứ không phải tính tổng

2 câu trả lời

Program tinhoc;

Uses crt;

Var i,n: integer;

Begin

clrscr;

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

for i:= 1 to 20 do i mod 2 = 0 then write(i:3, ',')

readln

End.

Program tinhoc

Usrscrt 

Integer

Begin

Write

Readln