В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
safiya250707
safiya250707
07.01.2023 02:14 •  Информатика

Скажите почему моя программ не выводит что треугольник равнобедренный? var a,b,c: integer;
begin
writeln(' Введи стороны треугольников');
readln(a, b, c);
if (a=b)and(b=c)and(c=a)then Writeln('Этот треугольник равносторонний')
else
if (a=b)and(b=c)or(a=b)and(a=c)or(c=a)and(c=b)then writeln('Этот треугольник равнобедренный')
else
if (a+b>c)and(a+c>b)and(b+c>a)then writeln('треугольник существует')
else writeln('Треугольнка не существует');
end.

Показать ответ
Ответ:
Yaklaura
Yaklaura
03.11.2021 22:36
// PascalABC.Net 3.0, сборка 1066

const
  n=5;
var
  a:array[1..n,1..n] of integer;
  x:array[1..n] of double;
  i,j,k:byte;
begin
  Randomize;
  Writeln('*** Исходный массив ***');
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(51)-25;
      Write(a[i,j]:4)
      end;
    Writeln
  end;
  Writeln('*** Массив x ***');
  for j:=1 to n do begin
    x[j]:=0; k:=0;
    for i:=1 to n do
      if a[i,j] mod 2=0 then begin
        x[j]:=x[j]+a[i,j]; Inc(k)
      end;
    if k>0 then x[j]:=x[j]/k;
    Write(x[j]:0:5,' ')
    end;
  Writeln
end.

Тестовое решение:
*** Исходный массив ***
 -10  18  -8 -15   5
 -21 -18   6  -2   9
  -7  22  -4   3  14
  21  16 -10 -18  -9
  17   3 -14 -18  12
*** Массив x ***
-10.00000 9.50000 -6.00000 -12.66667 13.00000
0,0(0 оценок)
Ответ:
епклсзкищут
епклсзкищут
10.02.2020 05:17

Искусственный интеллект - это свойство интеллектуальных систем выполнять творческие функции, которые традиционно считаются прерогативой человека

Смарт технологии - это портативные вещи, телефоны, планшеты и др. То-что можно с собой взять.

Интернет вещи - это концепция сети передачи данных между физическими объектами.

Соответственно: смарт технологии это мобильные технологии которые можно физически положить в карман, искусственный интеллект это нереальная вещь, искусственный интеллект расположен внутри компьютерных технологий. Интернет вещи - это передача данных от другого человека к другому.

Эти вещи не связаны между собой.

Объяснение:

Обьяснять тут нечего все выше сказано.

Надеюсь понятно и как-то тебе это

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