Question

Паскаль, цикл с предусловием while. Вводится целое положительное число. Найти наименьшую нечетную цифру в числе. Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр"

Answer 1

Для решения данной задачи воспользуемся циклом с предусловием while.

Алгоритм решения задачи: 1. Вводим целое положительное число. 2. Инициализируем переменную min_odd_digit значением 9 (максимально возможной нечетной цифры). 3. Инициализируем переменную found значением false (флаг, указывающий, найдена ли нечетная цифра). 4. Пока введенное число не равно 0, выполняем следующие шаги: - Получаем последнюю цифру числа, используя остаток от деления на 10. - Если полученная цифра нечетная и меньше значения min_odd_digit, то присваиваем min_odd_digit значение этой цифры. - Если найдена нечетная цифра, присваиваем переменной found значение true. - Делаем целочисленное деление введенного числа на 10, чтобы удалить последнюю цифру. 5. Если found равно false, выводим на экран надпись "В числе нет нечетных цифр". 6. Иначе выводим на экран значение переменной min_odd_digit.

Пример кода на языке Pascal:

var
  number, digit, min_odd_digit: integer;
  found: boolean;
  
begin
  writeln('Введите целое положительное число:');
  readln(number);
  
  min_odd_digit := 9;
  found := false;
  
  while number <> 0 do
  begin
    digit := number mod 10;
    
    if (digit mod 2 <> 0) and (digit < min_odd_digit) then
      min_odd_digit := digit;
      
    if digit mod 2 <> 0 then
      found := true;
      
    number := number div 10;
  end;
  
  if not found then
    writeln('В числе нет нечетных цифр')
  else
    writeln('Наименьшая нечетная цифра в числе: ', min_odd_digit);
end.

После ввода числа, программа будет находить наименьшую нечетную цифру в числе и выводить ее на экран. Если в числе нет нечетных цифр, будет выведено сообщение "В числе нет нечетных цифр".