Tin học pascal: cấu trúc lặp

Lê Thị Hàn

Học sinh
Thành viên
10 Tháng năm 2018
105
13
36
21
Thái Nguyên
THPT Chuyên Thái Nguyên

ĐứcNhật!

Học sinh tiêu biểu
Thành viên
17 Tháng mười một 2017
1,525
3,788
529
Quảng Nam
Trung Học Phổ Thông Chuyên Nguyễn Bỉnh Khiêm
mọi người ơi ai biết làm, giúp mình với, mình cảm ơn trc ạ
Bài 3: Viết chương trình nhập vào hai số m, n, xuất ra dãy số chẵn từ m đến n.
Mã:
Program So_chan;
Uses crt;
Var m,n,i: longint;
Begin
clrscr;
Write('Nhap m va n: '); readln(m,n);
For i:=m to n do
If i mod 2 = 0 then Write(i:6);
Readln
End.
 
Top Bottom