viết phương trình tính tổng các số từ 1 đến n sao cho tổng <= 30

0 bình luận về “viết phương trình tính tổng các số từ 1 đến n sao cho tổng <= 30”

1. Dưới hình

   

   Bình luận

2. program tong;

   uses crt;

   var n,T: byte;

   Begin

            clrscr;

            n:=1;

            while T<=30 do

            begin

                     n:=n+1;

                     T:=T+n;

            end;

            write(‘T = ‘,T,’ ,  n = ‘,n);

            readln

   End.

   Bình luận