A = N^i
N = 2 (А,Б - две буквы)
i = 11
A = 2^11 = 2048
В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2
Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.
Исполнитель Чертежник и Исполнитель Робот