Viết chương trình tính tổng A=1+2+3+4+…+T với T là một số nguyên dương tùy ý do người dùng nhập vào từ bàn phím.

0 bình luận về “Viết chương trình tính tổng A=1+2+3+4+…+T với T là một số nguyên dương tùy ý do người dùng nhập vào từ bàn phím.”

1. Program tinhtong;

   Uses crt;

   Var A, T, i: longint;

   Begin

   Clrscr;

   Write(‘Nhap so nguyen duong T: ‘); readln(T);

   A:=0

   For i:=1 to T do A:=A+i;

   Writeln(‘Tong A = ‘,A:0:2);

   Readln

   End.

   Bình luận

2. program tong_A;

   uses crt;

   var a,t,i:integer;

   begin

          clrscr;

          write(‘Nhap T: ‘);  readln(t);

          A:=0;

          for i:=1 to t do

                 A:=A+i;

          write(‘A= ‘,a);

          readln;

   end.

   Bình luận