Программа должна вводить число и приравнивать его цифры к номеру такого же элемента константной строки. но вместо этого приравнивает к своему номеру

program pozw;

const

str16: string='0123456789abcdef';

var

xa: string;

err: integer;

n,z,f: byte;

begin

writeln('введите шестнадцатиричное число');

read(xa);

for i: integer: =1 to length(xa) do

begin

z: =1;

if str16[i]=xa[z] then

val(xa[z],n,err);

n: =i;

writeln(n);

end;

end.

elen19871    1   21.09.2019 16:18    0