Дано описание массива: var a:array [1..26] of integer;

Здесь oписан массив a из
целочисленных значений. При выполнении этого оператора в памяти компьютера будет выделено
ячеек целого типа.

Пусть a,b,c - стороны треугольника (и их длины). Условие существование треугольника:

Пусть а - наибольшая из сторон, тогда против нее будет лежать наибольший угол, который можно определить по теореме косинусов:


Текст программы приводится ниже.
var
  a,b,c,t,cosA:real;
begin
  Write('Введите длины сторон треугольника: '); Readln(a,b,c);
  if (a<b+c) and (b<a+c) and (c<a+b) then
  begin
    if a>b then
    begin
        if a<c then begin t:=a; a:=c; c:=t end
    end
    else
      if b>c then begin t:=a; a:=b; b:=t end
      else begin t:=a; a:=c; c:=t end;
    cosA:=(sqr(c)+sqr(b)-sqr(a))/(2*b*c);
    if cosA=0 then Writeln('Треугольник прямоугольный')
    else
      if cosA<0 then Writeln('Треугольник тупоугольный')
      else Writeln('Треугольник остроугольный')
  end
  else
    Writeln('Треугольник построить нельзя')
end.

Тестовое решение:
Введите длины сторон треугольника: 4 6.1 3.7
Треугольник тупоугольный

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