Viết chương trình tính tổng bình phương 10 số tự nhiên đầu tiên: vd: S=12+ 22+32+-…+102

0 bình luận về “Viết chương trình tính tổng bình phương 10 số tự nhiên đầu tiên: vd: S=12+ 22+32+-…+102”

1. Program FNG;
   Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 10 do
                   s:=s+sqr(i);
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận

2. Uses crt;
   Var i,s: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 10 do
                   s:=s+sqr(i);
           Write(‘tong = ‘,s);
           Readln;
   End.

   Bình luận