Среди приведённых ниже 3 чисел записанных в различных системах счисления найдите максимальное и запишите его в ответе в десятичной системе счисления. 36 (в 8 сист.счисл.)
1D (в 16 сист. счисл.)
11011 (во 2 сист. счисл)
Напишите,как вы это нашли. ​

//Pascal ABC.NET 3.2 сборка 1318

Var
  f:text;
  n:integer;
  s:string;

   
procedure VoTeRaz(f:text;n:integer;s:string);
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;

function VoTeDva(f:text;n:integer;s:string):integer;
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
   
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.

Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6 
Стало:
891 5 6
Было:
891 5 6 
Стало:
113157 5 6

program D1;

uses GraphABC;

const c: array[1..3] of integer = (15,20,65);

n: array[1..3] of string = (' Белки ',' Жиры ',' Углеводы ');

var nu,u, i: integer;

begin

SetWindowTitle ('Сбалансированное питание');

SetFontSize(15);

TextOut(185,30,'Сбалансированное питание');

SetFontSize(10);

nu:=0;

for i:=1 to 3 do

begin

case i of

1: SetBrushColor(clred);

2: SetBrushColor(clgreen);

3: SetBrushColor(clblue)

end;

TextOut(285,385+(i*20),n[i]+IntToStr(c[i])+' % ');

u:=nu+trunc(c[i]*360/100);

Pie(320,230,150,nu,u);

nu:=u;

end;

SaveWindow ('Диаграмма питания.bmp')

end.

Объяснение:

картинка