Viết chương trình tính tổng 20+21+22+…+150 bằng câu lệnh while…do

0 bình luận về “Viết chương trình tính tổng 20+21+22+…+150 bằng câu lệnh while…do”

1. Program tinhtong;

   uses crt;

   var i,S:integer;

   Begin

   clrscr;

   S:=0; i:=20;

   While i<=150 do begin S:=S+i; i:=i+1; end;

   Writeln(‘Tong la:’, S);

   readln;

   end.

   Bình luận

2. program tinh_tong;

   uses crt;

   var i,t:integer;

   begin

        clrscr;

        t:=0;   i:=20;

        while i<=150 do

             begin

                  t:=t+i;

                  i:=i+1;

             end;

        write(‘Tong la: ‘,t);

        readln;

   end.

   Bình luận