Как найти закономерность в парах чисел, которая работает для всех чисел (чисел больше 10к), или выключающею(которая работает для всех чисел, кроме пар, или для пар, связано з системами исчесления. За такое могу даже больше, если захотите(даже 700)

s = input("Введите предложение:")

length = int(input("Введите длину слова:"))

index_word = [i for i,x in enumerate(s.split()) if len(x) == length]

max_distance = 0

if index_word :

for i in range(len(index_word)-1):

distance = index_word[i+1] - index_word[i]

if max_distance < distance:

max_distance = distance

print(max_distance-1)

else:

print('нет слов длиной',length)

Объяснение:

S и length думаю понятно...

index_word - создает список из порядковых номеров (-1) слов, длина которых равняется length

Два условия, если index_word не пустой и если он пустой.

Если он не пустой, то:

1) i = индекс каждого номера в списке index_word ( - 1, чтобы не было ошибки list out of range)

2) dinstance = отнимаем последующий номер от предыдущего

3) Если ответ (max_distance) < distance мы приравниваем его к ответу.

4) После окончания цикла выводим ответ (max_distance - 1), то есть расстояние

Если пустой:

Нет слов с длиной length

1)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 10 do

begin

if mas[i]<0 then counter:=counter+1;

end;

end.

2)

var mas: array[1..5] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 5 do

begin

if (mas[i]>0) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

3)

var mas: array[1..15] of integer = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 15 do

begin

if (mas[i]>5) and (i mod 2 = 0) then counter:=counter+1;

end;

end.

4)

var mas: array[1..15] of integer;

var counter: integer;

begin

for i:= 1 to 15 do

begin

mas[i] = random(20) - 5;

end;

for i:= 1 to 15 do

begin

writeln(mas[i]);

end;

for i:= 1 to 15 do

begin

if (mas[i]>0) then counter:=counter+1;

end;

end.

5)

var mas: array[1..7] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]>0 then mas[i]=0;

end;

for i:= 1 to 7 do

begin

writeln(mas[i]);

end;

end.

6)

var mas: array[1..10] of real = {.,.,}; // перечисление элементов массива, который дан по условию задания

var counter: integer;

var sum: real;

var average: real;

begin

for i:= 1 to 7 do

begin

readln(mas[i]);

end;

for i:= 1 to 7 do

begin

if mas[i]<0 then

begin

sum:=sum+mas[i];

counter:=counter+1;

end

end;

average:= sum/counter;

end.

Объяснение: