Viết chương trình để tính tổng học sinh các số tự nhiên đầu tiên cho đến khi tổng đó bằng 100 thì dừng lại
Quảng cáo
2 câu trả lời 3298
Program tinh_tong;
Uses crt;
Var S,n: integer;
Begin
clrscr;
S:=0;
n:=1;
While(S<=100) do
Begin
S:=S+n;
n:=n+1;
End;
Writeln(‘ Tong la: ‘,S);
Readln
End.
Uses crt;
Var S,n: integer;
Begin
clrscr;
S:=0;
n:=1;
While(S<=100) do
Begin
S:=S+n;
n:=n+1;
End;
Writeln(‘ Tong la: ‘,S);
Readln
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45592
-
Đã trả lời bởi chuyên gia
29052 -
Hỏi từ APP VIETJACK28534
Gửi báo cáo thành công!
