Quảng cáo
2 câu trả lời 333
Sử dụng For.. do:
Var i,S:integer;
Begin
For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Sử dụng While ..do:
Var i,S:integer;
Begin
i:=0;
While i<=100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Sử dụng For.. do:
Var i,S:integer;
Begin
For i:= 1 to 100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Sử dụng While ..do:
Var i,S:integer;
Begin
i:=0;
While i<=100 do If i mod 2 = 0 then S:= S+i;
Writeln(' tong cac so chan :',S);
Readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
-
✎YLY. Sealine౨ৎ
220 điểm
-
BI IS SAD | K12 ♡ ... ? 190 điểm
-
Minh nè:))
85 điểm
-
HỌC BÁ 8B5❤️🔥💯
85 điểm
-
$$\color{orange}{꧁ ঔ ৣ ☬ ✞ ⨳₳₪™ ⨳ ✞ ☬ ঔ ৣ ꧂}$$
75 điểm
-
đka9A1
55 điểm
-
Nguyễn Thị Quỳnh Mai
40 điểm
-
Thủy Thu 40 điểm
-
hoàng chí vỹ 30 điểm
-
nên làm gì đây?
30 điểm
-
Nguyễn Ngọc Bảo Quyênnn 25 điểm
-
ai thích sờ "chim"
25 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11953
-
4 năm trước11327
-
4 năm trước10001
-
4 năm trước10293
-
4 năm trước9728
