олжик13
07.06.2020 13:24

Мне постоянно приходит уведомление на компьютер HP с Windows 10 от SmartAudio: Failed to create Conexant Audio Factory, The SmartAudio will now exit. Я смотрела все возможные видео на YouTube, читала разные статьи, но ничего не ... Если вы знаете решение проблемы - буду благодарна за

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
JesperWecksell
01.12.2021 19:50
Python:

n = int(input())

max = n

min = n

while (n != 0):

   n = int(input())

   if n != 0:

       if n > max:

           max = n

       elif n < min:

           min = n

print(min,max)

Input/Output:

5                                                                                                                              

7                                                                                                                              

2                                                                                                                              

3                                                                                                                              

0                                                                                                                              

2 7  

0,0(0 оценок)
Ответ:
kyvsaar
16.10.2022 17:29
Program Project1;
const
  eps = 1e-10;
var
  a:array [1..3] of Real;
  i: integer;
  max: Real;
  max_i: integer;
  sqr_h: Real;
  sqr_k: Real;
  sp: Real;
begin
  Write('Введите длину сторон треугольника: ');
  Readln(a[1],a[2],a[3]);
  max:=a[1];
  max_i:=1;
  for i := 2 to 3 do
    if a[i]>max then
    begin
      max:=a[i];
      max_i:=i;
    end;
  sqr_k := 0;
  for i:=1 to 3 do
    if i<>max_i then
      sqr_k:=sqr_k+sqr(a[i]);
  sqr_h:=Sqr(max);
  if (Abs(sqr_k-sqr_h)<eps) then
  begin
    Writeln('Треугольник прямоугольный');
    sp:=1;
    for I := 1 to 3 do
      if i<>max_i then
        sp:=sp*a[i];
   sp:=sp/2;
    Writeln('Площадь треугольника = ',sp:0:5);
  end
  else
  begin
    Writeln('Треугольник не прямоугольный');
    sp:=0;
    for I := 1 to 3 do
      sp:=sp+a[i];  
    Writeln('Периметр треугольника = ',sp:0:5);
  end;
  Readln;
end.

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