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

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

Задать свой вопрос
Егор Вареничев
язык программирования какой?
Адуков Андрюха
Тогда пишу на паскале
1 ответ
Var
a,k,m,min,i,flag:integer;
    begin
            readln(a);
            m:=a; сохраняю введенное значение и считаю кол-во цифр в числе
              while m gt;0 do     
                  begin         
                          m:=m div 10;         
                          k:=k+1;     
                  end;     
min:=9; записываю самое великое нечетное число
в цикле отсекаю заключительную цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то храню ее в min и присваиваю переменной Flag 1. Если к концу программки в переменной flag  будет 1, означает желая бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных
            for i:=1 to k do   
                      begin       
                             if   (a mod 10lt;=min)and(a mod 2lt;gt;0) then           
                                begin             
                                     min:=a mod 10;             
                                     flag:=1;           
                                end;       
                          a:=a div 10;   
                     end;         
      if flag=0 then           
                writeln('нет нечетных')         
      else             
                writeln(min);
end.
Василиса
Набираю число 493570. Программка слетает с известьем, что число очень огромное для представления с заданной точностью. А что - имею право, нигде не написано, в каких пределах это число должно быть.
Miroslava Mihalenkova
Все можно решить гораздо проще.
Машенька Гаренко
var s:string; i,n,min,err:integer; c:char;begin Write('Введите произвольное число: '); Readln(s); min:=10; for i:=1 to Length(s) do begin Val(s[i],n,err); if err=0 then if (n
Nelli Selemeneeva
Приношу прощенья, строчка с char не нужна.
Хайков Кирилл
Работает для любых чисел в любом формате и даже запрятанных в текст. разреженных пробелами и т.д.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт