Question

viết chương trình cho máy tính thực hiện phép tính A= 1+2+3... với a > or < 1500 pascal

Answer 1

*Khi A lớn nhất và A >=1500

Var i,A: integer;
Begin

         While A<1500 do

         Begin

                  i:=i+1;

                  A:=A+i;

         End;

   Write('Tong cua A la: ',A); [Hoặc Write('Tong cua A la:',A,' va can co ',i,' so') {Để in ra màn hình cần bao nhiêu số để có tổng >1500 ]

Readln

End.

Answer 2

*Khi A lớn nhất và A<1500
Var i,A:integer;

Begin

  i:=0; A:=0;

   While A<1500 do

             Begin

                i:=i+1;

                A:=A+i;

             End;

       A:=A-i;

       i:=i-1;

   Writeln('Tong A= ',A,' );

 Readln;

End.
*Dòng lệnh in đậm mình ghi thêm và khác với bài kia có nghĩa là khi A>1500 thì phải trừ tổng A đi số (hoặc nhiều số) cuối cùng đã cộng cho tổng cho đến khi tổng A<1500. Vd như: A=1+2+3+4+5= 15 (tức A>10; A phải lớn nhất).Muốn cho A=10 thì trừ đi số cuối cùng là 5 = 15-5=10. Còn nếu muốn A<10 thì trừ hai số cuối cùng đi hai số cuối cùng là : 15-5-4=6

Good luck for you! :D