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.
