tính tổng A=1+4+9+…n^2(với n được nhập từ bàn phím)

0 bình luận về “tính tổng A=1+4+9+…n^2(với n được nhập từ bàn phím)”

1. Program     tinhtong;

   Uses         Crt; 

   Var          i,d: integer;

   Begin

   Clrscr;

   Write (‘ Nhập số n: ‘); readln(n);

   d:=0;

   for i:=1 to n do

   d:=d+1;

   Write (‘ Kết quả là:= ‘);

   readln;

   End.

   Bình luận