Задача 9
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных:
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных:
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
Примеры:
Вход
1234
Выход
1
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных:
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных:
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
Примеры:
Вход
1234
Выход
1
More Questions From This User See All
Answers & Comments
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
РЕШЕНИЕ:
PascalВыделить код1234567891011121314151617181920var n,a,b,c,d:integer;f,g:text;beginassign(f,'input.txt');assign(g,'output.txt');reset(f);rewrite(g);readln(f,n);a:=n div 1000;b:=n div 100 mod 10;c:=(n mod 100) div 10;d:=n mod 10;if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) and (d mod 2=0) and (n<>0) then writeln(g,'-1') elseif (a<=b) and (a<=c) and (a<=d) then writeln(g,a) elseif (b<=a) and (b<=c) and (b<=d)then writeln(g,b) elseif (c<=a) and (c<=b) and (c<=d) then writeln(g,c) elseif (d<=a) and (d<=b) and (d<=c) then writeln(g,d) elseclose(f);close(g);end.