Viết phương trình lặp trong pascal tinh: S = 2^2 + 4^2 + 6^2 + ...+ 30^2
2 câu trả lời
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.
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.
