Question

Вычислить сумму квадратов чисел, принадлежащих промежутку (A,B), стоящих на местах, кратных 4; подсчитать кол-во во всем массиве.
PASCAL

Answer 1

begin

 var (a, b) := ReadInteger2;

 var n := ReadInteger;

 var m := ArrRandom(n, -99, 99);

 m.Println;

 var (s, k, i) := (0, 0, 3);

 while i <= n do

 begin

   s += Sqr(m[i]);

   k += 1;

   i += 4

 end;

 Writeln('Элементов ', k, ', сумма их квадратов ', s)

end.