Viết chương trình tính tổng S = 2 + 4 + 6+-+2n

0 bình luận về “Viết chương trình tính tổng S = 2 + 4 + 6+-+2n”

1. program Tong;

   uses crt;

   var n,i,T: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            for i:=1 to n do T:=T+2*i;

            write(‘Tong = ‘,T);

            readln

   End.

   Bình luận

2. Program      tinh_tong;

   Uses         Crt;

   var          n,i,d : integer;

   Begin

   clrscr;

   writeln(‘ nhap so n la:= ‘); readln(n);

   d:=0;

   for i:= 2 to n do

   d:=d + 2*i;

   write (‘ ket qua la:= ‘ , d);

   readln;

   End.

   Bình luận