a)sử dụng vòng lặp for
b)sử dụng vòng lặp while
Quảng cáo
4 câu trả lời 1712
a Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 50 do S:= S + i;
Write (S);
Readln;
End.
b.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 10 do S:= S + 1/i;
Write (S);
Readln;
End.
a Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 50 do S:= S + i;
Write (S);
Readln;
End.
b.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 10 do S:= S + 1/i;
Write (S);
Readln;
End.
a Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 50 do S:= S + i;
Write (S);
Readln;
End.
b.
Var i : integer;
S : real;
Begin
S:= 0;
For i:=1 to 10 do S:= S + 1/i;
Write (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 VIETJACK45577
-
Đã trả lời bởi chuyên gia
28960 -
Hỏi từ APP VIETJACK28509
-
✎YLY. Sealine౨ৎ
610 điểm
-
Lionel Andres Messi
580 điểm
-
BI IS SAD | K12 ♡ ... ? 490 điểm
-
Minh nè:))
285 điểm
-
HỌC BÁ 8B5💯
275 điểm
-
Nguyễn Thị Quỳnh Mai
230 điểm
-
anh tài thành tích
225 điểm
-
chenyiheng
220 điểm
-
Hien ha nhu 175 điểm
-
$$\color{orange}{꧁ ঔ ৣ ☬ ✞ ⨳₳₪™ ⨳ ✞ ☬ ঔ ৣ ꧂}$$
170 điểm
-
hoàng chí vỹ 140 điểm
-
Yui Lú Cutee
130 điểm
-
♡ 𝓘 𝓵𝓸𝓿𝓮 𝔂𝓸𝓾 ♡
125 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước11882
-
4 năm trước11256
-
4 năm trước9926
-
4 năm trước10218
-
4 năm trước9657
