![](https://rs.olm.vn/images/avt/0.png?1311)
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
Các câu hỏi dưới đây có thể giống với câu hỏi trên
QN
0
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
25 tháng 4 2021
*Câu lệnh For..do
Dạng xuôi: for <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
25 tháng 4 2021
*Câu lệnh For..do
Dạng ngược: For <biến đếm>:=<giá trị cuối> downto <giá trị đầu> do <câu lệnh>;
DN
0
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
28 tháng 2 2022
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
a: Khai báo
b: số thực