Аида524
27.02.2020 00:52

1. Программа тілдерін қалай топтасытруға болады?​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
hdjdhd1
21.02.2020 10:43

Чтобы из трех отрезков можно было составить треугольник, необходимо и достаточно, чтобы сумма длин любых двух отрезков была строго больше третьего.

Напишите функцию triangle(a, b, c), которая принимает на вход три длины отрезков и определяет, можно ли из этих отрезков составить треугольник. Ваша функция должна печатать "Это треугольник", если составить треугольник можно, и "Это не треугольник", если нельзя.

Пример 1

Ввод

triangle(1, 1, 2)

Вывод

Это не треугольник

Пример 2

Ввод

triangle(7, 6, 10)

Вывод

Это треугольник

Пример 3

Ввод

triangle(20, 13, 17)

Вывод

Это треугольник исправить код:

PythonВыделить код

1

2

3

4

5

6

7

8

9

10

11

12

13

def Triangle(a, b, c):

   if b < a > c:

       return a < b + c

   elif a < b > c:

       return b < a + c

   else:

       return c < a + c

 

 

a = int(input())

b = int(input())

c = int(input())

print('Это треугольник' if Triangle(a, b, c) else "Это не треугольник")

Объяснение:

0,0(0 оценок)
Ответ:
g2004
23.06.2021 01:41
uses crt;
var a, b, c, i, j, n:integer;   
s, k :array [1..10000] of integer;
begin
     clrscr;
     writeln ('Введите размер массива > 4.');
     read (n);
     for i:=1 to n do 
     begin 
          writeln ('Введите ', i, ' элемент.'); 
          read (s[i]); 
     end;
     for i:=1 to n do 
          for j:=1 to n-1 do 
               while s[i]=s[j] do   
               begin   
                    j:=j+1;   
                    inc (k[i]);   
               end;
     a:=k[1];
     for i:=1 to n do 
          if a<k[i] then
               a:=k[i];
     if k[i]=0 then k[i]:=1;
     writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.');
     for i:=1 to n-5 do 
          if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then  inc (b);
     if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b);
end.

P.S. Надеюсь на благодарность и лучший ответ.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота