Viết chương trình in ra màn hình tổng các số 1;3;5;7;...; 2n-1 sao cho tổng nhỏ nhất lớn hơn 1000. Help me pls :(((

2 câu trả lời

uses crt;
var S,n:integer;
begin
   clrscr; n:=1;
   while S<=1000 do
   begin
      S:=S+(2*n-1);
      inc(n);
   end;
   writeln('S la: ',S);
   writeln('n la: ',n);
   readln
end.

programMang_le;

uses crt;
var S,n:integer;
begin
clrscr; n:=1;
while S<=1000 do
begin
S:=S+(2*n-1);
inc(n);

end;
writeln('S la: ',S);
writeln('n la: ',n);
readln
end.

Câu hỏi trong lớp Xem thêm