Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nguyễn Minh Bảo
Xem chi tiết
sin sun sun
Xem chi tiết
Trần Lê Xuân My
Xem chi tiết
gái xinh nè
Xem chi tiết
nguyễn an phát
17 tháng 3 2021 lúc 19:19

program tim_n;
uses crt;
var tong,n,i:word;
begin
  clrscr;
  n:=1;tong:=0;
  while tong<500 do
  begin
    for i:=1 to n do tong:=tong+i;
    if tong<500 then begin tong:=0;n:=n+1;end
    else n:=n-1;
  end;
  write('so n thoa man dieu kien la:',n);
  readln;
end. 

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:04

uses crt;

var i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

t:=0;

for i:=1 to 500 do 

begin  

t:=t+i;

if t>500 then 

begin

writeln(i);

break;

end;

end;

readln;

end.

Khương Vy
Xem chi tiết
holibuon
Xem chi tiết
Trà Lê
Xem chi tiết
SNSD in my heart
Xem chi tiết
Nguyễn Duy Anh Quốc
28 tháng 2 2016 lúc 15:17

bằng 2014

tiểu thư bìm bìm
9 tháng 3 2016 lúc 14:53

2014 nhé bn

Han Han
Xem chi tiết