Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Bùi Gia Kiệt

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

Trungnghia
10 tháng 4 2021 lúc 15:18

*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.

Trungnghia
10 tháng 4 2021 lúc 15:26

*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 


Các câu hỏi tương tự
random name
Xem chi tiết
Nguyễn Kim Trí
Xem chi tiết
Ho Truong Minh
Xem chi tiết
Nguyễn Ngọc Thảo Linh
Xem chi tiết
Gia Hân
Xem chi tiết
tan nhat
Xem chi tiết
Lưu Thanh Hà
Xem chi tiết
duyy
Xem chi tiết
Tích Nguyệt
Xem chi tiết