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

Ответы 1

  • var min, n, r, m:integer;begin  writeln('Введите целое положительное число');  read(n);  min := 10;  r := 1;  while r <> 0 do  begin    m := n mod 10;    if (m < min) and (m mod 2 = 1) then min := m;    r := n div 10;    n := r;  end;  if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)end.
    • Автор:

      fionaufh8
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years