Вычислить сумму квадратов чисел, принадлежащих промежутку (A,B), стоящих на местах, кратных 4; подсчитать кол-во во всем массиве.
PASCAL
Ответы
Ответ дал:
0
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.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад