Есть ответ 👍

Дан массив из 7 элементов названия книг. Заполнить его с клавиатуры. Распечатать в столбик. 2 - дан массив из 7 элементов целых чисел. Заполнить его случайным образом. Распечатать в строчку. 3 - дан массив из 7 целых чисел. Заполнить массив по формуле: значение элемента равно индексу, под которым элемент находится в массиве побыстрее. Заранее задание не нужно.

230
400
Посмотреть ответы 1

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


проверено - работает на паскаль авс:

 

program kovyarovsany; var  x1,y1,x2,y2,x3,y3: integer;   d1,d2,d3: real; begin  write ('x1 = '); readln(x1);   write ('y1 = '); readln(y1);     write ('x2 = '); readln(x2);   write ('y2 = '); readln(y2);   write ('x3 = '); readln(x3);   write ('y3 = '); readln(y3);     d1: =sqrt(x1*x1+y1*y1);   d2: =sqrt(x2*x2+y2*y2);   d3: =sqrt(x3*x3+y3*y3);   if (d1=d2) and (d1=d3) then           writeln ('все три точки на одинаковом расстоянии от начала координат ')       else      if (d1=d2) and (d1< d3) then           writeln ('точка 1 и точка 2 на одинаковом расстоянии от начала координат ')       else          if (d2=d3) and (d2< d1) then               writeln ('точка 2 и точка 3 на одинаковом расстоянии от начала координат ')           else              if (d1=d3) and (d1< d2) then                   writeln ('точка 1 и точка 3 на одинаковом расстоянии от начала координат ')               else                  if (d1< d2) and (d1< d3) then                         writeln ('точка 1 ближе всех')                  else                      if (d2< d1) and (d2< d3) then                           writeln ('точка 2 ближе всех')                       else                            writeln ('точка 3 ближе всех'); end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS