viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó lớn hoặc bằng 100 thì dừng lại 
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.
Những câu hỏi liên quan
17 tháng 3 2021
Tính ntn???????😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳
19 tháng 5 2023
đề:viết chương trình tính tổng các số tự nhiên đầu tiên cho đến khi tổng đó bằng 10 thì dừng lại. vậy đúng chưa
YD
1
30 tháng 3 2022
uses crt;
var n,i,t:integer;
begin
n:=0;
t:=0;
repeat
n:=n+2;
t:=t+n;
until t>69;
writeln(n);
writeln(t);
readln;
end.
KV
12 tháng 5 2022
Var n,s:integer;
Begin
n:=0;
While s<=1000 do
begin
n:=n+1;
s:=s+n;
End;
Write('Tong dau tien lon hon 1000 la ',s);
Readln;
End.
12 tháng 5 2022
Tham khảo link: https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cua-n-so-tu-nhien-dau-tien-sao-cho-tong-nho-hon-hoac-bang-1000giup-minh-voi-thu-6-thi-roi.180444032537
uses crt;
var i,t:integer;
begin
clrscr;
i:=1;
t:=0;
repeat
t:=t+i;
inc(i);
until t>=100;
writeln(t);
readln;
end.