Переведи число 10228 в десятичную систему счисления.

ответ: 1022 по основанию 8 --> 1*8^3+0*8^2+2*8^1+2*8^0 = 512+0+16+2 = 530 по основанию 10

3 носка,т.к. среди них точно есть пара(в числе 3 есть число 2)

function max (x,y : longint) : longint; begin  if x> y then max: =x else max: =y; end; var k : longint; s : string; begin  readln(s);   while (pos('.',s)< > 0)or(pos('! ',s)< > 0)or(pos('? ',s)< > 0) do

begin    k: =k+1;

    delete(s,max(max(pos('.',s),pos('! ',('? ',); end;   writeln(k); end.