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

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

Задать свой вопрос
1 ответ
Var min, n, r, m:integer;
begin
  writeln('Введите целое положительное число');
  read(n);
  min := 10;
  r := 1;
  while r lt;gt; 0 do
  begin
    m := n mod 10;
    if (m lt; 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт