Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и - id1109668720220627 от ilshat22 27.06.2022 14:27

Question

Информатика: Среди приведённых ниже трёх чисел, записанных в различных системах счисления, найдите максимальное и запишите его в ответе в десятичной системе счисления. В ответе запишите только число, основание системы счисления указывать не нужно. 1416, 268, 110002.

ilshat22 · Accepted Answer

// PascalABC.Net 3.0, сборка 1076
var
s,ss:string;
i,n,p:integer;
begin
Write('Введите строку: '); Readln(s);
n:=Length(s); p:=Pos(',',s);
if p in [1..n-1] then begin
    ss:=Copy(s,p+1,n-p);
    n:=Length(ss); p:=Pos(',',ss);
    if p=0 then Writeln(ss)
    else Writeln(Copy(ss,1,p-1))
    end
else Writeln('*** Нечего выводить ***')
end.

Тестовые решения:
Введите строку: 01234,45679,1011213,14151617
45679

Введите строку: 01234,45679101121314151617
45679101121314151617

Введите строку: 01234,
*** Нечего выводить ***

MOGZ ответил