Dùng câu lệnh lặp while do viết chương trình tính tổng 10 số tự nhiên đầu tiên. nhanh giúp mình nhaa

0 bình luận về “Dùng câu lệnh lặp while do viết chương trình tính tổng 10 số tự nhiên đầu tiên. nhanh giúp mình nhaa”

1. program tong;

   uses crt;

   var i,T: integer;

   Begin

            while i<=10 do

            begin

                     T:=T+i;

                     i:=i+1;

            end;

            write(‘T = ‘,T);

            readln

   End.

   Trả lời