Viết phương trình lặp trong pascal tinh: S = 2^2 + 4^2 + 6^2 + …+ 30^2

0 bình luận về “Viết phương trình lặp trong pascal tinh: S = 2^2 + 4^2 + 6^2 + …+ 30^2”

1.         Program Hotboy ;

           Uses crt;

           Var s,i: longint;

           Begin

           Clrscr;

           s:=0;

           For i:=1 to 30 do

           If (i mod 2 = 0) then s:=s+sqr(i);

           Write(‘tong la’,S);

           Readln

           End.

   Bình luận

2. Program TinhS;
   Uses crt;
   Var s,i: longint;
   Begin
           Clrscr;
           s:=0;
           For i:=1 to 30 do
                   If i mod 2 = 0 then s:=s+sqr(i);
           Write(s);
           Readln
   End.

   Bình luận