viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
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
KV
29 tháng 4 2022
Var i,s:integer;
Begin
i:=0;
While s<=1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n nho nhat la ',i);
Readln;
End.
17 tháng 3 2021
program tim_n;
uses crt;
var tong,n,i:word;
begin
clrscr;
n:=1;tong:=0;
while tong<500 do
begin
for i:=1 to n do tong:=tong+i;
if tong<500 then begin tong:=0;n:=n+1;end
else n:=n-1;
end;
write('so n thoa man dieu kien la:',n);
readln;
end.
17 tháng 3 2021
uses crt;
var i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to 500 do
begin
t:=t+i;
if t>500 then
begin
writeln(i);
break;
end;
end;
readln;
end.
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.
ML
19 tháng 3 2023
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Var s,i:integer;
Begin
s:=0;
i:=0;
While S<1000 do
Begin
i:=i+1;
s:=s+i;
End;
Write('n la ',i);
Readln;
End.
camonn ạ