Nguyễn Nghi
Hỏi từ APP VIETJACK
Viết chương trình tính tổng từ 1 đến 50
a) sử dụng vòng lặp for
b) sử dụng vòng lặp while
a) sử dụng vòng lặp for
b) sử dụng vòng lặp while
Quảng cáo
2 câu trả lời 2082
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 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
Gửi báo cáo thành công!
