Tìm số tự nhiên n để ta nhận được tổng Sn nhỏ nhất lớn hơn X (X<104, X nhập vào từ bàn phím). In ra màn hình số n và tổng S tìm được.

0 bình luận về “Tìm số tự nhiên n để ta nhận được tổng Sn nhỏ nhất lớn hơn X (X<104, X nhập vào từ bàn phím). In ra màn hình số n và tổng S tìm được.”

1. program tongnhonhat;

   uses crt;

   var x,s,n:integer;

   begin

   clrscr;

   write(‘Nhap X: ‘);   readln(x);

   n:=1;  s:=1;

   while s<=x do

    begin

      n:=n+1;

      s:=s+n;

    end;

   writeln(n,’ la so nho nhat thoa man va tong la: ‘,s);

   readln

   end.

   Bình luận

2. uses crt;

   var m,s,n:integer;

   begin

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

   n:=1; 

   s:=1;

   while s<=x do begin

      n:=n+1;

      s:=s+n;

    end;

   writeln(n,’la so nho nhat thoa man va tong la: ‘,s);

   readln

   end.

   Bình luận