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 :(((

0 bình luận về “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 :(((”

1. 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.

   Bình luận

2. 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.

   Bình luận