PT
0
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.
Dưới đây là một vài câu hỏi có thể liên quan tới câu hỏi mà bạn gửi lên. Có thể trong đó có câu trả lời mà bạn cần!
4 tháng 5 2021
uses crt;
var s,n:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=500 do
begin
inc(n);
s:=s+n;
end;
writeln(s);
readln;
end.
H9
HT.Phong (9A5)
CTVHS
24 tháng 3 2023
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
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.
ML
1 tháng 3 2021
Program HOC24;
var i,n,t: integer;
begin
n:=1; t:=0;
while t<=500 do
begin
t:=t+n;
n:=n+1;
end;
writeln('Tong la: ',t);
write('So N nho nhat de tong lon hon 500 la: ',n);
readln
end.
1 tháng 3 2021
*Cách khác: Dùng Repeat Until
uses crt;
var n,t:integer;
begin
clrscr;
t:=0;
n:=0;
repeat
n:=n+1;
t:=t+n;
until t>500;
writeln(t);
writeln(n);
readln;
end.
PD
1
11 tháng 3 2021
FKsjcjalqwjfkzxjvskxkalakxkjfhdncsjakxndsjcjakxkcjsakxkxkakcjalcx.?xzxz.!xx!xxkxjxxkxjdsxxkxjxxkxjdsjdjxxkxjxxkxjdsxxkxjxxkxjdsjdjak₫(#(₫(#(₫#(#(₫(₫;₫;₫(*((*:#;*)fkfkfjshdhfhxdhrefkfkfjshdhfhxdhreujvgdjjcjgwejfjgjjffjidkxfdjjfnjjdhhc
KV
5 tháng 5 2023
Var n,s:integer;
Begin
n:=0;
s:=0;
While s<=1000 do
Begin
n:=n+1;
s:=s+n;
End;
Write('Tong la ',s);
Readln
End.
