tính tổng dãy số 1,2...N cho đến khi tổng lớn hơn 600
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
uses crt;
var n,i,t:integer;
begin
clrscr;
n:=0;
i:=0; t:=0;
repeat
i:=i+1;
t:=t+i;
until t>600;
write(i);
write(t);
readln;
end.