Viết chương trình tính tổng S=1+2+3+… +N cho đến khi S>100. Cho biết giá trị của S và N

0 bình luận về “Viết chương trình tính tổng S=1+2+3+… +N cho đến khi S>100. Cho biết giá trị của S và N”

1. uses crt;
   var n,s:longint;
   begin
   clrscr;
      while s<=100 do
         begin
            inc(n);
            s:=s+n;
         end;
      writeln(‘s= ‘,s);
      writeln(‘n= ‘,n);
   readln
   end.

   Bình luận

2. program tim_so;

   uses crt;

   var s,n:byte;

   begin

           clrscr;

           s:=0;   n:=0;

           while S<=100 do

                   begin

                           n:=n+1;

                           S:=S+n;

                   end;

           write(‘S= ‘,s,’ va n= ‘,n);

           readln;

   end.

   Bình luận