Вычеслите сумму квадратов всех четных чисел от1 до - вопрос №11570292 от vania666 07.10.2022 21:38

Question

Информатика: Вычеслите сумму квадратов всех четных чисел от1 до n

vania666 · Answer

var  i, n, s: integer;begin  readln(n);  for i := 1 to n do begin    if(i mod 2 = 0) then s := s + sqr(i);  end;  writeln(s);end....