Вычислите сумму квадратов N четных натуральных чисел.

Program fanatpetsa;
var sum,i,n : integer;
begin
writeln(*   alphaues is thinking...   *);
write(Ok, введите число N =);
readln(n);
sum:=0;
for i:=1 to n do
begin
    if n mod 2 = 0 then sum := sum + n*n;
end;
   writeln(Сумма квадратов равна ,sum);
writeln(*******************************);
end.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!