viết chương trình tìm số tự nhiên n nhỏ nhất để tổng 1+2+3+..n> hoặc = 1000

0 bình luận về “viết chương trình tìm số tự nhiên n nhỏ nhất để tổng 1+2+3+..n> hoặc = 1000”

1. program tinhtong;

   uses crt;

   var n,s:integer;

   begin

        clrscr;

        S:=0;  n:=0;

        while S<1000 do

             begin

                  n:=n+1;

                  S:=S+n;

             end;

        write(‘so tu nhien nho nhat thoa man la: ‘,n,’ voi tong la: ‘,S);

        readln;

   end.

   Bình luận