Предмет: Информатика, автор: fanatpetsa

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

Ответы

Автор ответа: Alphaeus
0

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.

Похожие вопросы
Предмет: Қазақ тiлi, автор: kartpanbetovaasem
Предмет: Алгебра, автор: mishenko054
Предмет: Алгебра, автор: R1taa