Даны три числа в разных системах счисления: а\/(8) = 64; в\/(16) = 64; с\/(2) = 11000. выполните следующие действия: р= а * (в + с результат переведите в шестнадцатеричную систему счисления.стрелочка "\/" указывает на то, что внизу

// pascalabc.net 3.0, сборка 1128 begin   var s: =readstring('введите строку: ');   var d1: =copy(s,1,s.length div 2).where(x-> x='? ').count;   var d2: =s.where(x-> x='? ').count-d1;   if d1> d2 then writeln('в первой половине больше "? "')   else       if d1< d2 then writeln('во второй половине больше "? "')       else writeln('поровну "? "') end. тестовое решение: введите строку: 54ttge5t? getg5? ? ee4t3t? #43t4gfdaf? ss? sfsf? sfse в первой половине больше "? "

Var f: text;     s,st: string;     i: integer; begin        st: ='.: ; ';     assign (f,'c: \input.txt');     reset (f);     read (f,s);     close(f);     writeln('считана строка:   ',s);     i: =1;     repeat       if pos(s[i],st)> 0 then       begin         delete(s,i,1);         i: =i-1;     end;       i: =i+1;   until i> length(s);   writeln('новая строка:   ',s);   readln; end.