viết chương trình tính tông A= 1+2+3+…+n sao cho tổng A nhỏ nhất lớn hơn 700 (n được nhập vào từ bàn phím )

0 bình luận về “viết chương trình tính tông A= 1+2+3+…+n sao cho tổng A nhỏ nhất lớn hơn 700 (n được nhập vào từ bàn phím )”

1. program Tinhtong_DA;
   uses crt;
   var n:integer;
         A:LongInt;
   Begin
         ClrScr;
         A:=0; n:=0;
         While A<=700 Do
               Begin
                       n:=n+1;
                       A:=A+n;
               End;
         Writeln(‘So n nho nhat de tong nho nhat lon hon 700 la ‘,n);
         Writeln(‘Gia tri cua tong nho nhat de tong A lon hon 700 la ‘,A);
         Readln;
   End.

   Bình luận