Прилетели теперь наши на далекую планету gamma rays. и разговорились с одним почтенным отцом семейства. много детей, рассказал он, у него – тридцать три сына и пятьдесят дочерей. всего детей – сто тринадцать, а годиков ему, соответственно, 101. а на самом-то деле, сколько чего?

Х- искомое основание системы счисления 3x+3+5x=x²+x+3 x²-7x=0 x=7   или х=0, основание не может быть равным 0, следовательно 7 - искомое основание системы счисления 33₇=24 сына 50₇=35 дочерей 113₇= 49+7+3=59 детей 101₇= 49+1= 50лет

Var a: array [1..5] of integer; i, amount: integer; begin       read(a[1], a[2], a[3], a[4], a[5]);       amount : = 0;       for i : = 1 to 5 do       begin           while a[i] > = 10 do           begin                 a[i] : = a[i] div 10;           end;           if a[i] = 8           then               amount : = amount + 1;       end;       writeln(amount); end.

Var a1, b1: integer; a, b: char; begin       read(a, b);       case a of       'i': a1 : = 1;       'v': a1 : = 5;       'x': a1 : = 10;       'l': a1 : = 50       end;       case b of       'i': b1 : = 1;       'v': b1 : = 5;       'x': b1 : = 10;       'l': b1 : = 50       end;       if a1 < b1       then           writeln(b1 - a1)       else           writeln(a1 + b1); end.