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?
K
Khách
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.
Những câu hỏi liên quan
21 tháng 3 2023
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.
7 tháng 7 2016
\(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
24 tháng 2 2021
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.
24 tháng 10 2015
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
PT
1
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.