Есть ответ 👍

Решите в pascal: известно расстояние до каждого из трёх сёл от районного центра. определить, какое из них находится ближе всего к районному центру, а какое дальше всего от него

151
166
Посмотреть ответы 2

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

cooldown229
4,4(62 оценок)

Если условие перевести на , то имеем три числа (три расстояния), среди которых нужно найти самое маленькое (минимум), и самое большое (максимум). другими словами, найти минимальное и максимальное из трех заданных чисел. program z; var min,max,x: real;     i: integer; begin readln(x);   {ввод первого числа} min: =x;       {принять первое число за минимум на начало счета} max: =x;       {принять первое число за максимум на начало счета} for i: =2 to 3 do    {считать остальные два числа} begin   readln(x);         {ввести очередное число}   if x> max then max: =x;   {если введенное число больше текущего максимума, считать его максимумом}   if x< min then min: =x;   {если введенное число меньше текущего минимума, считать его минимумом} end; writeln('min=',min);       {вывод минимума} writeln('max=',max);       {вывод максимума} end. замечание. программа не использует массив, т.к. чисел всего три. в более общем случае лучше ввести числа в массив и выполнить его сортировку. вариант без цикла и с отдельными переменными для каждого числа program z1; var min,max,x,y,z: real; begin readln(x);   {ввод первого числа} min: =x;       {принять первое число за минимум на начало счета} max: =x;       {принять первое число за максимум на начало счета} readln(y);         {ввести второе число} if y> max then max: =y;   {если введенное число больше текущего максимума, считать его максимумом} if y< min then min: =y;   {если введенное число меньше текущего минимума, считать его минимумом} readln(z);         {ввести третье число} if z> max then max: =z;   {если введенное число больше текущего максимума, считать его максимумом} if z< min then min: =z;   {если введенное число меньше текущего минимума, считать его минимумом} writeln('min=',min);       {вывод минимума} writeln('max=',max);       {вывод максимума} end.
sonka247
4,6(68 оценок)

A  =  7 b  =  a-8 = 7-8 = -1 a = -3*b+3 = -3*(-1)+3 = 6 b = a/2*b = 6/2*(-1) = -3 ответ: a=6, b=-3

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS