Viết chương trình tính tổng n số tự nhiên cho đến khi S<= 2000 thì dừng.
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
5 tháng 5 2021
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.
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
17 tháng 3 2021
Tính ntn???????😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳😳
3 tháng 12 2021
uses crt;
var a,t:integer;
begin
clrscr;
t=0;
repeat
readln(a);
if (a>0) then t:=t+a;
until (a mod 2=0);
writeln(t);
readln;
end.
program tong_so_tu_nhien;
uses crt;
var a,i,s: longint;
begin
clrscr;
s:= 0;
while s<=2000 do begin
writeln('nhap so n: '); readln(n);
s:= s+n;
writeln('tong la: ',s); end;
readln
end.
Mình chạy chương trình rồi! Làm đúng đó nên bạn tham khảo nhé! Chúc bạn học tốt!
giúp mình vs