Есть ответ 👍

Написать подпрограмму, которая ищет а четырехзначном числе минимальную четную цифру. если таких цифр нет, то вернуть -1. требования к подпрограмме: процедура должна называться "search" и иметь два параметра: первый - четырехзначное натуральное число. второй - результат работы подпрограммы. (паскаль абц (pascal abc))

221
305
Посмотреть ответы 3

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

Igorkhvan
4,4(57 оценок)

Procedure search(n: integer; var mineven: integer); begin   mineven : = 10;   while n > 0 do   begin     var last : = n mod 10;     if (last mod 2 = 0) and (last < mineven) then       mineven : = last;     n : = n div 10;   end;   if mineven = 10 then     mineven : = -1; end;

Program prog; function search(n: integer): integer; var   input: array[1..4] of integer;   even: array[1..4] of integer;   atlestone: boolean; begin   input[1] : = n div 1000;   input[2] : = n mod 1000 div 100;   input[3] : = n mod 100 div 10;   input[4] : = n mod 10;   if (input[1] mod 2 = 0)       begin           even[1] : = input[1];           atlestone : = true;       end;   if (input[2] mod 2 = 0)       begin           even[2] : = input[2];           atlestone : = true;       end;   if (input[3] mod 2 = 0)       begin           even[3] : = input[3];           atlestone : = true;       end;       if (input[4] mod 2 = 0)       begin           even[4] : = input[4];           atlestone : = true;       end;   if atlestone = true then       search : = low(even)   else       search : = -1; end;

const n = 10;

var a: array [1..n] of integer;

      i: integer;

begin

  for i: = 1 to n do readln(a[i]);

  writeln('в прямом порядке: ');

  for i: = 1 to n do write(a[i],'   ');

  writeln;

  writeln('в обратном порядке: ');

  for i: = n downto 1 do write(a[i], '   ');

end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS