Var n,k,i:integer; begin write('n = '); readln(n); k:=0; for i:=1 to 6 do begin if n mod 2 = 1 then begin k:=i; break; end; n:=n div 10; end; if k=0 then writeln('В числе нет нечётных цифр') else writeln('k = ',k); end.
//PascalABC.Net 3.2 begin var n:=readstring ('Ввод числа: ')+' '; var i:=0; for i:=1 to length(n) do if n[i] in ['1', '3', '5', '7', '9'] then break; if i=length(n) then write ('Нет нечетной цифры') else write(i); end.