Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
1) Обе клавиши служат для удаления символов, но клавиша Delete удаляет символ, находяшийся справа от текстового курсора, а клавиша BackSpace - слева. 2) Клавиши управления курсором служать для перемещения по тексту в одном из четырех направлений, но при этом клавиши прокрутки не позволяют перемещаться по тексту вправо и влево. Клавиши со "стрелками" осуществляют перемещение в любом из направлений на одну позицию (символ или строку), а клавиши прокрутки - или на фиксированное число строк (PgUp, PgDn), или к началу текста (Home), или к его концу (End). 3) И режим вставки, и режим замены - оба служат для редактирования текста. Но в режиме вставки очередной вводимый символ добавляется в позицию, указанную текстовым курсором, а в режиме замены вводимые символы заменяют уже имеющиеся и находящиеся справа от курсора.
Примечание. В задании не указано, о каком редакторе идет речь, поэтому ответ написан для общего случая с учетом общеупотребительного применения клавиш и режимов. В конкретном текстовом редакторе могут быть свои особенности, например, клавиша Home в одних редакторах только переводит курсов в первую строку, в других - еще и помещает его перед первым символом текста, а вот в редакторе, где сейчас набирается данный текст, клавиша Home помещает курсор перед первым символом текущей строки.
a,k,m,min,i,flag:integer;
begin
readln(a);
m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе}
while m >0 do
begin
m:=m div 10;
k:=k+1;
end;
min:=9; {записываю самое большое нечетное число}
{в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}
for i:=1 to k do
begin
if (a mod 10<=min)and(a mod 2<>0) then
begin
min:=a mod 10;
flag:=1;
end;
a:=a div 10;
end;
if flag=0 then
writeln('нет нечетных')
else
writeln(min);
end.