Народ последнюю задачку проверьте пожалуйста!опять не могу найти ошибку
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.