Народ последнюю задачку проверьте пожалуйста!опять не могу найти ошибку
УСЛОВИЕ:
Дано натуральное четырехзначное число. Найти наименьшую нечетную цифру в числовой записи данного числа.
Формат входных данных
Входной файл содержит натуральное четырехзначное число.
Формат выходных данных
Выведите наименьшую нечетную цифру в числовой записи данного числа. Если нечетных цифр в числе нет, выведите в выходной файл -1.
РЕШЕНИЕ:
PascalВыделить код1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var n,a,b,c,d:integer;
f,g:text;
begin
assign(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') else
if (a<=b) and (a<=c) and (a<=d) then writeln(g,a) else
if (b<=a) and (b<=c) and (b<=d)then writeln(g,b) else
if (c<=a) and (c<=b) and (c<=d) then writeln(g,c) else
if (d<=a) and (d<=b) and (d<=c) then writeln(g,d) else
close(f);
close(g);
end<span>.