Выполнить последовательный перевод данных (шестнадцатеричных) чисел в двоичную и десятичную системы счисления : ас873, е2

Ответ:   ас873 =  2163 е2 = 226

{1. традиционный паскаль, каким он был более четверти века назад. именно его описывают школьные учебники. } function max(a,b: real): real; begin   if a> b then max: =a else max: =b end; var   x,y,z,r: real; begin   write('введите z,y,z: ');   read(x,y,z);   r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end. // 2. pascalabc.net 3.2, сборка 1374 от 10.01.2017 // актуальная, современная версия паскаля, которой // все же начали учить некоторые школы и на которой // можно решать олимпиадные // (пока еще не на любых сайтах) begin   var x,y,z: real;   write('введите z,y,z: ');   read(x,y,z);   var r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end.

1) program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i : = 1 to 6 do readln(a[i]); mi : = 1; m : = a[mi]; for i : = 2 to 6 do if a[i] < m then begin mi : = i; m : = a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end. 2) предполагая, что 'коробочка' - это корень program t2; const f = -8; t = 6; s = 2; var i: real; function gety(x: real): real; begin if (x > -3) and (x < = 3) then gety : = sqrt(x) else gety : = 1 / (x * x); end; begin writeln('промежуток [', f, '; ', t, '], шаг ', s, ': '); i : = f; while i < = t do begin writeln('y(', i, ') = ', gety(i)); i : = i + s; end; end.