Есть ответ 👍

дано чотири цілих чисела, одне з яких відрізняється від трьох інших, рівних між собою. визначити порядковий номер числа,відмінного від інших (pyton)

224
457
Посмотреть ответы 1

Ответы на вопрос:


// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var d: (real,real,real,real)-> real: =           (x1,y1,x2,y2)-> sqrt(sqr(x2-x1)+sqr(y2-y1));   var (x1,y1): =readreal2('введите координаты 1-й точки: ');   var (x2,y2): =readreal2('введите координаты 2-й точки: ');   var (x3,y3): =readreal2('введите координаты 3-й точки: ');   var a: =d(x1,y1,x2,y2);   var b: =d(x2,y2,x3,y3);   var c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       var p: =(a+b+c)/2;       var s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. пример введите координаты 1-й точки: -2.5 1.6 введите координаты 2-й точки: 5.2 4 введите координаты 3-й точки: 1 -1 s = 14.21 pascal abc, free pascal var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; function d(x1,y1,x2,y2: real): real; begin   d: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   a: =d(x1,y1,x2,y2);   b: =d(x2,y2,x3,y3);   c: =d(x1,y1,x3,y3);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end. с процедурой: var   x1,y1,x2,y2,x3,y3,a,b,c,p,s: real; procedure d(x1,y1,x2,y2: real; var r: real); begin   r: =sqrt(sqr(x2-x1)+sqr(y2-y1)) end; begin   write('введите координаты 1-й точки: '); read(x1,y1);   write('введите координаты 2-й точки: '); read(x2,y2);   write('введите координаты 3-й точки: '); read(x3,y3);   d(x1,y1,x2,y2,a);   d(x2,y2,x3,y3,b);   d(x1,y1,x3,y3,c);   if (a+b> c) and (a+c> b) and (b+c> a) then begin       p: =(a+b+c)/2;       s: =sqrt(p*(p-a)*(p-b)*(p-c));       writeln('s = ',s)       end   else       writeln('невозможно построить треугольник') end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS