Viết chương trình tính và xuất tổng s = 2 mũ 2 + 4 mũ 2 + 6 mũ 2 + 8 mũ 2 + 10 mũ 2
1 câu trả lời
Uses crt;
Var i:integer,t:longint;
BEGIN
Clrscr;
For i:=2 to 10 do if i mod 2 = 0 then t:=t+(i*i);
Write('2^2 + 4^2 + 6^2 + 8^2 + 10^2);
Readln
END.
Uses crt;
Var i:integer,t:longint;
BEGIN
Clrscr;
For i:=2 to 10 do if i mod 2 = 0 then t:=t+(i*i);
Write('2^2 + 4^2 + 6^2 + 8^2 + 10^2);
Readln
END.
