Viết chương trình tìm số tự nhiên n sao cho tổng của n số tự nhiên đầu tiên nhỏ nhất lớn hơn 1000?
0 bình luận về “Viết chương trình tìm số tự nhiên n sao cho tổng của n số tự nhiên đầu tiên nhỏ nhất lớn hơn 1000?”
uses crt; var S,i:integer; begin clrscr; S:=0; i:=0; while S<1000 do begin i:=i+1; if S<1000 then S:=S+i; if S>=1000 then begin s:=s-i; break; end; end; write(‘S=’,S); readln end.
uses crt; var S,i:integer; begin clrscr; S:=0; i:=0; while S<1000 do begin i:=i+1; if S<1000 then S:=S+i; if S>=1000 then begin s:=s-i; break; end; write((‘Tong n nho nhat va loi hon 1000 la: ‘,S); readln; end.
uses crt;
var S,i:integer;
begin
clrscr;
S:=0; i:=0;
while S<1000 do
begin
i:=i+1;
if S<1000 then S:=S+i;
if S>=1000 then
begin
s:=s-i;
break;
end;
end;
write(‘S=’,S);
readln
end.
Đáp án:
program at;
uses crt;
var S,i:integer;
begin
clrscr;
S:=0; i:=0;
while S<1000 do
begin
i:=i+1;
if S<1000 then S:=S+i;
if S>=1000 then
begin
s:=s-i;
break;
end;
write((‘Tong n nho nhat va loi hon 1000 la: ‘,S);
readln;
end.