Tính tổng các số tự nhiên do người dùng nhập từ bàn phím đến khi tổng lớn hơn 100 thì thông báo tổng S rồi kết thúc. *THUẬT TOÁN: -Bước 1: S <-

0 bình luận về “Tính tổng các số tự nhiên do người dùng nhập từ bàn phím đến khi tổng lớn hơn 100 thì thông báo tổng S rồi kết thúc. *THUẬT TOÁN: -Bước 1: S <-”

1. program tinhtong;

   uses crt;

   var s,x:integer;

   begin

   s:=0;

   while not(s>100) do

    begin

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

     s:=s+x;

    end;

   write(‘Tong cac so la: ‘,s);

   readln

   end.

   Bình luận

2. program phuongt;

   uses crt;

     var s, n: integer;

   begin

              clrscr;

              s:=0;

              while s<100 do

              begin

                        write(‘Nhap n = ‘); readln(n);

                        s:=s+n;

               end;

               wirte(‘Tong = ‘, s);

               readln

   end.

   Bình luận