OUTPUT: A là lớn nhất nhỏ hơn 1500 thỏa mãn phép tính

Chương trình:

Progran tim_A;

uses crt;

var A,n:integer;

begin

       clrscr;

       n:=0; A:=0;

       while A<1500 do

              begin

                     n:=n+1;

                     A:=A+n;

              end;

       A:=A-n;

       n:=n-1;

       write('A= ',a,' va can ',n,' so');

       readln;

end.

Có thể bạn sẽ hỏi tại sao cuối A lại là A=A-n và n=n-1 vì khi thực hiện xong vòng lặp while thì A sẽ có giá trị >=1500 do đó phải trừ đi số cộng cuối cùng để nhỏ hơn.

*Thuật toán:

$B1:$  A>=1500 chuyển $B4$;

$B2:$  i:=i+1; A:=A+i;

$B3:$  Thông báo kết quả và kết thúc thuật toán.

.

*Chương trình:

program Cau_2;

uses crt;

var i,A: integer;

Begin

         clrscr;

         while A<1500 do

         begin

                  i:=i+1;

                  A:=A+i;

         end;

         write('A = ',A);

         readln

End.