Pascal ABC

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

стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).

Question

Информатика

Федоза

20 июня, 21:50

Pascal ABC

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

стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).

+4

Ответы (1)

Знаете ответ на вопрос?

Василей · Answer 1

1. for i : = 1 to size do if (i mod 3 = 0) and (a[ i ] < 0) then s : = s + sqr (a[ i ]) ;

2. for i : = 1 to size do if (a[ i ] < v) or (b < = v) then inc (c) ;

Pascal ABCВычислить сумму квадратов отрицательных чисел,стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).

Pascal ABC

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

стоящих на местах, кратных 3; подсчитать количество чисел, не принадлежащих промежутку [А, В).