Tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 100. Giúp với ạ:33

0 bình luận về “Tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 100. Giúp với ạ:33”

1. Uses crt;
   Var N,S:Longint;
   begin
       While S<=100 Do
       Begin Inc(N); S:=(N*(N+1) Div 2) End;
       Writeln(‘N nho nhat la: ‘,N);
   readln
   end.

   Bình luận

2. program tim_n;

   uses crt;

   var n,t:integer;

   begin

        clrscr;

        t:=0;  n:=0;

        while t<=100 do

             begin

                  n:=n+1;

                  t:=t+n;

             end;

        write(‘n nho nhat la: ‘,n,’ va khi do tong la: ‘,t);

        readln;

   end.

   Bình luận