Viết chương trình tìm số tự nhiên n sao cho tổng n số tự nhiên tính từ 1 nhỏ nhất lớn hơn 500. Mn giúp mình với ạ, mình đang cần gấp ạ!!!
2 câu trả lời
var n,s:integer
begin
while s<500 do
begin
inc(n);
s:=s+n;
end;
write('So can tim la: ',n);
readln
end.
program oken;
uses crt;
var n,i: longint;
begin
clrscr;
n:=0; i:=1;
while n<=500 do
begin
n:=n+i;
i:=i+1;
end;
Writeln('n=',n);
readln;
end.
Câu hỏi trong lớp
Xem thêm
- Đề 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
