Вычеслите сумму квадратов всех четных чисел от1 - вопрос №15709691 от 1526962 20.11.2020 23:02

Question

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

1526962 · 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....