Ответы на вопрос:
Возможно, так, как сделал я - не совсем то, что хотел от вас преподаватель. но программа работает как надо по вашему . при чем вводить можно даже числа из девяти знаков function checkstr( x: string ): boolean; // это функция, которая проверяет введенное пользователем на то, является ли это целым положительным числом, а не какими-нибудь буквами begin var k: integer; if length(x) > 0 then begin result : = true; for k : = 1 to length(x) do if not (x[k] in ['0'..'9']) then begin result : = false; // если пользователь ничего не ввел или ввел не цифры, то будет возвращена ложь end; end; end; var n: string; error, r, i, min: integer; b: array[1..8] of integer; // в - массив, в котором будут храниться все цифры введенного числа begin write('введите целое положительное число: '); readln(n); if checkstr(n) then begin // вызываем нашу функцию на обработку введенных данных r : = length(n); // присваиваем переменной r размер введенной строки val( n[ 1 ], min, error); // конвертирует строковое значение в тип integer и присваиваем минимальному значению первую цифру for i : = 2 to r do begin val( n[ i ], b[ i ], error ); // конвертируем строковые цифры в integer if ( b[i] < min ) and ( b[i] mod 2 < > 0) then min : = b[i]; // если цифра нечетная и меньше переменной min , то присвоить переменной min значение этой цифры if ( min mod 2 = 0 ) then min : = b[i]; // проверяем на всякий случай еще раз первую цифру end; if ( min mod 2 = 0 ) then writeln('нечетных цифр нет') // если нечетных цифр нет, а наименьшая цифра четная, то говорим, что нечетных цифр нет else writeln( 'наименьшая нечетная цифра в числе: ', min ); // выводим наименьшую нечетную цифру из числа end else writeln('неверный формат ввода'); // если пользователь вдруг ввел буквы или какие-нибудь каракули вместо целого числа end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
КамиллаОк24.04.2021 20:33
-
назар16317.10.2022 19:19
-
debnatkh07.08.2022 11:26
-
visnevskay106.09.2021 20:34
-
irina1822126.03.2023 15:52
-
Sindex21210.01.2022 21:58
-
bibok330.11.2021 07:36
-
orazaymesaurov23.04.2021 16:48
-
NAPAS22825.02.2020 08:19
-
androsova201618.04.2022 08:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.