Cần cộng bao nhiêu số tự nhiên đầu tiên để tổng nhỏ nhất lớn hơn n, với n được nhập từ bàn phím

0 bình luận về “Cần cộng bao nhiêu số tự nhiên đầu tiên để tổng nhỏ nhất lớn hơn n, với n được nhập từ bàn phím”

1. uses crt;

   var n

   begin

   clrscr;

   write(‘nhap n: ‘);  readln (n);

   repeat

   i:=i+1;

   s:=s+i;

   d:=d+1;

   until s>n;

   writeln (‘can cong ‘,d,’ so tu nhien dau tien’);

   readln;

   end.

   Bình luận