C2 : tìm N để tổng của nó từ 1 là số đầu tiên lớn hơn 200

0 bình luận về “C2 : tìm N để tổng của nó từ 1 là số đầu tiên lớn hơn 200”

1. Program Tim_N;

   Uses crt;

   Var N,s:integer;

   Begin

   Clrscr;

   N:=0;  s:=0;

   while s<=200 do

   begin

   N:=N+1;

   s:=s+N;

   End;

   Write(‘N= ‘,N,’ va tong la: ‘,s);

   Readln;

   End.

   Bình luận

2. program tim_N;

   uses crt;

   var n,s:integer;

   begin

          clrscr;

          N:=0;  S:=0;

          while S<=200 do

                 begin

                        N:=N+1;

                        S:=S+N;

                 end;

          write(‘N= ‘,n,’ va khi do Tong la: ‘,s);

          readln;

   end.

   Bình luận