Viết chương trình tìm số tự nhiên n sao cho tổng của n số tự nhiên đầu tiên nhỏ nhất lớn hơn 1000?
2 câu trả lời
uses crt;
var S,i:integer;
begin
clrscr;
S:=0; i:=0;
while S<1000 do
begin
i:=i+1;
if S<1000 then S:=S+i;
if S>=1000 then
begin
s:=s-i;
break;
end;
end;
write('S=',S);
readln
end.
Đáp án:
program at;
uses crt;
var S,i:integer;
begin
clrscr;
S:=0; i:=0;
while S<1000 do
begin
i:=i+1;
if S<1000 then S:=S+i;
if S>=1000 then
begin
s:=s-i;
break;
end;
write(('Tong n nho nhat va loi hon 1000 la: ',S);
readln;
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
