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.
1) A='Q' -<em>cимвольный.</em>
2) B=5 - <em>целый.</em>
3) С= 45. - <em>вещественный.</em><em />
4) D = True - <em>логический.</em>
1)13
2)205,5 (допустим)
1)01111100
2)0,000101110111 (допустим)
3)11100010, 0010010010011111 (допустим)
Не обязательно
пользователь сам подключает внешние накопители, если ему не хватает встроенной памяти компьютера)