Cần cộng bao nhiêu số tự nhiên đầu tiên để nhận được tổng S nhỏ nhất lớn hơn 1000? Kiểm tra xem số tìm được có lớn hơn 1500 không?
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.
program TongSn;
var
N, S: integer;
begin
S := 0;
N := 1;
while S <= 1000 do
begin
S := S + N;
N := N + 1;
end;
writeln('So tu nhien can cong de tong Sn vuot qua 1000 la: ', N-1);
writeln('Tong S', N-1, ' la: ', S);
end.
\(A=\left\{24;25;26;...;999;1000\right\}\)
Có tất cả số phần tử của tập hợp trên là :
\(\frac{\left(1000-24\right)}{1}+1\) = 977 ( phần tử )
S là tập hợp rỗng
uses crt;
var t,n:integer;
begin
clrscr;
t:=0;
n:=0;
while t<=10 do
begin
n:=n+1;
t:=t+n;
end;
writeln(t);
readln;
end.
Ta có dãy 1 , 2 , 3 , ... , 1000
Chia ra thành 2 dãy
Chẵn : 2 , 4 , 6 , ... , 1000
Lẻ : 1 , 3 , 5 , ... , 999
Mỗi dãy có số số hạng là :
1000 : 2 = 500 ( số )
Tổng các số chẵn là :
( 1000 + 2 ) x 500 : 2 = 250 500
Tổng các số lẻ là :
( 999 + 1 ) x 500 : 2 = 250 000
Tổng số chẵn hơn tổng số lẻ là :
250 500 - 250 000 = 500
Đáp số : 500
uses crt;
var s,i:integer;
begin
clrscr;
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+i;
until s>1000;
writeln(s);
if (s>1500) then writeln('co')
else writeln('khong');
readln;
end.