Вычислить сумму квадратов N четных натуральных чисел
Вычислить сумму квадратов N четных натуральных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar
i, n: byte;
s: longint;
begin
readln(n);
for i := 2 to n * 2 do
if (i mod 2 = 0) then
s := s + sqr(i);
writeln(s);
end.
Не нашли ответ?
Похожие вопросы