Help me Viết chương trình tìm số nguyên dương m lớn nhất sao cho 1 + 2 + 3 + … + m < N Giải thích nữa nhá.

0 bình luận về “Help me Viết chương trình tìm số nguyên dương m lớn nhất sao cho 1 + 2 + 3 + … + m < N Giải thích nữa nhá.”

1. var m,n,i,s:longint;

   begin

   read(n);         

   m:=n;

   s:=n+1;

   while s>n do

   begin

   s:=0;

   m:=m-1;

   for i:=1 to m do  s:=s+i;

   end;

   write(m);

   readln;

   end.

   Bình luận

2. program hama; {khai báo chương trình}
   uses crt; {khai báo thư viện}
     var n, s, i: integer; {khai báo biến}
   begin {bắt đầu chương trình}
           clrscr; {xóa màn hình}
           write(‘Nhap n = ‘); readln(n); {yêu cầu và nhập giá trị biến n}
           s:=0; {gán s = 0}
           i:=1; {gán i = 1}
           while s<n do {kiểm tra điều kiện s<n hay không}
           begin {nếu nhỏ hơn thì bắt đầu đoạn chương trình dưới, không thì dừng lại}
                   s:=s+i; {gán giá trị s = s+i}
                   if s>=n then write(‘m = ‘, i-1); {nếu giá trị s ≥ n thì in giá trị trước giá trị i (i-1 là giá trị m) ra ngoài màn hình}
                   i:=i+1; {tăng giá trị biến đếm để không mắc lỗi vòng lặp vô hạn}
           end; { kết thúc đoạn chương trình while – do}
           readln {thông báo kết quả ra màn hình}
   end. { kết thúc chương trình}

   Bình luận