viết chương trình tìm số n nhỏ nhất sao cho s= 1+1+2+3+5+8+...+n biết s ko vượt quá 1000
Quảng cáo
1 câu trả lời 343
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<1000 do
begin
for i:=1 to n do tong:=tong+i;
if tong<1000 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
Trần Ngọc Vinh
· 4 năm trước
:)?
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
4926 -
4205
Gửi báo cáo thành công!
