Для начала определим что такое разряд числа. Разряд это порядковый номер цифры, и счет начинается с запятой, отделяющей дробь, счет начинается с 0 разряда до последней цифры. Например, число 1234,0: 0 разряд - 4, 1 разряд - 3, 2 разряд - 2 и 3 разряд единица.
Теперь определимся как переводить из 16й в 10ю. Для перевода шестнадцатеричного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания шестнадцатеричной системы счисления на соответствующие цифры в разрядах шестнадцатеричного числа.
Т.е.:
Чтобы перевести буквы в числа надо воспользоваться списком:
A=10; B=11; C=12; D=13; E=14; F=15
Теперь расмотрим данные нам числа:
2)
var s1, s2:string;
i: integer;
begin
s1:='symbols';
s2:='';
i:=2;
while i <= length(s1) do
begin
s2 += s1[i];
i += 2;
end;
writeln(s2);
end.
4)
var sWord: string;
i, j: integer;
begin
sWord:='moloko';
for i:=1 to length(sWord) do
for j:=length(sWord) downto i+1 do
if sWord[j] = sWord[i] then
delete(sWord, j, 1);
write(sWord);
end.
5)
var text: string;
begin
text:='Напечатает только это, а это не напечатает';
writeln(LeftStr(text, pos(',', text) - 1));
end.