hãy sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tính tổng các số tự nhiên từ 1 đến 20.

0 bình luận về “hãy sử dụng câu lệnh lặp với số lần chưa biết trước viết chương trình tính tổng các số tự nhiên từ 1 đến 20.”

1. Program BTH;
   uses crt;
   var i,s:longint;
   Begin
           clrscr;
           i:=0;
           While i<>20 do
           Begin
                   i:=i+1;
                   s:=s+i;
           end;
           writeln(‘Tong day so tren la: ‘,s);
           readln;
   end.

   Bình luận

2. program oken;
   uses crt;
   var i,tong:longint;
   Begin
           clrscr;
           i:=1;
           while i<=20 do
           begin
                   tong:=tong+i;

                   i:=i+1′
           end;
           writeln(‘Tong day so tren la: ‘,tong);
           readln;
   end.

   Bình luận