S=1+x+x^2+x^3+x^4+…+x^n-1+x^n. S>=10000 ai giúp mình với

0 bình luận về “S=1+x+x^2+x^3+x^4+…+x^n-1+x^n. S>=10000 ai giúp mình với”

1. program tinhtong;

   uses crt;

   var s,gt:longint;

         x,n,i:integer;

   begin

   clrscr;

   write(‘Nhap x: ‘);   readln(x);

   s:=0;  n:=0;  

   while s<10000 do

    begin

     gt:=1;

     for i:=1 to n do

      gt:=gt*x;

     s:=s+gt;

     n:=n+1;

    end;

   writeln(‘Tong nho nhat thoa man la: ‘,s);

   writeln(‘Va so n nho nhat thoa man la: ‘,n);

   readln

   end.

      

     

   Bình luận

2. uses crt;
   var n,i,x,t:longint; s:real;
   begin
   clrscr;
      write(‘x=’);readln(x);
      while s<10000 do
         begin
            t:=1;
            for i:=1 to n do t:=t*x;
            s:=s+t;
            inc(n);
         end;
      writeln(‘n= ‘,n-1);
      writeln(‘s= ‘,s:0:0);
   readln
   end.

   Bình luận