Регистрация Спросить otvet5GPT
пепоам
23.02.2020 00:26
Информатика
Есть ответ 👍

Написать алгоритм нахождени максимального четного числа из трех чисел в паскале

251
266
Посмотреть ответы 2

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

kamila0277
kamila0277
4,6(12 оценок)
Если текст будет в строчку,как обычно оно тут бывает,скачай мой тхт,там код в нормальном виде var  a, b, c: integer;   a1, b1, c1: integer; beginwhile true dobegin  writeln('введите 3 числа');   readln(a, b, c);   if (a mod 2) = 0 then // четным плюс 1    a1 : = 1;   if (b mod 2) = 0 then    b1 : = 1;   if(c mod 2) = 0 then    c1 : = 1;   if((a mod 2) < > 0) and ((b mod 2) < > 0) and ((c mod 2) < > 0) then //при четных нету    writeln('четных нет');   if(a1=1)and(b1=0)and(c1=0)then //если только 1 четное  writeln(a)  else   if(a1=0)and(b1=1)and(c1=0)then  writeln(b)  else   if(a1=0)and(b1=0)and(c1=1)then  writeln(c);       if (a1 = 1) or (b1 = 1) or (c1 = 1) then //выяснение большего числа  begin    if(a1 = 1) and (b1 = 1) and (c1 = 1) then // если 3 числа четные    begin      if (a > = b) and (a > = c) then        writeln(a)      else if (b > = a) and (b > = c) then        writeln(b)      else if(c > = b) and (c > = a) then        writeln(c)    end    else if (a1 = 1) and (b1 = 1) then//если а и б четные    begin      if(a > b) then        writeln(a)      else if (b > a) then        writeln(b)    end    else if(a1=1)and(c1=1)then//если а и с    begin        if(a > c) then        writeln(a)      else if (c > a) then        writeln(c)    end    else if(b1=1)and(c1=1) then//если б и с    begin    if(b> c)then    writeln(b)    else if(c> b)then    writeln(c)    end;   end;   end; end.
krav4enkom
krav4enkom
4,5(84 оценок)
1байт = 8 бит 19888 байт = 159104 бит

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS