Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите наибольшее и запишите его в десятичной системе счисления. Перевод чисел записать в тетрадь.

3616, 638, 1111002

(телефон) поверчу волшебный круг,- и меня услышит друг.  (стол) под крышей-четыре ножки, над крышей-суп да ложки. хоть по размеру и мала, информацию хранит она. знаем все устройство это  )

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

см файл

за январь нет оплаты так как нет предыдущих показаний

excel таблицы не прикрепляются

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.