PascalABC.Net версия 3.2

begin
var a:=ArrRandom(10,0,100); a.Println;
Writeln('Количество пар равно ',
a.Pairwise.Where(x->((x.Item1+x.Item2) mod 6<>0)
and (x.Item1*x.Item2<1000)).Count)
end.

Пример работы программы
84 11 3 74 61 62 52 97 99 35
Количество пар равно 3

Пояснения.
ArrRandom создает нужный массив, Println выводит его на экран.
Расширение PairWise порождает последовательность из пар соседних элементов,
Where образует фильтр этих пар с необходимыми условиями, а Count подсчитывает количество пар, прошедших фильтр.

0 0

3 года назад

Прочитать ещё 2 ответа

Построить таблицу истинности для логического выражения

Фатаморгана [173]

.........................

0 0

4 года назад

Помогите решить задания на python пожалуйста

Октябринка [2K]

Объяснение:

def func1(n):

if n > 1:

func1(n-1)

print(n, end=' ')

n = int(input())

func1(n)

def func2(l, r):

if l > r:

return 0

return l + func2(l+1, r)

l, r = map(int, input().split())

print(func2(l, r))

def func3(a, n):

if n == 0:

return 1

elif n % 2 == 1:

return a * func3(a, n-1)

else:

return func3(a, n//2)**2

a, n = map(int, input().split())

print(func3(a, n))

0 0

3 года назад