Viết phương trình lặp trong pascal tinh: S = 2^2 + 4^2 + 6^2 + …+ 30^2
Viết phương trình lặp trong pascal tinh: S = 2^2 + 4^2 + 6^2 + …+ 30^2
Share
Lời giải đáp cho hàng vạn thắc mắc của bạn!
Hãy giúp đỡ người khác giải quyết rắc rối, và rắc rối của bạn sẽ biến mất.
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.