Надо просто перевести 12 и 17 систему счисления(двоичную,восьмиричную..)
Программа находится во вложении, надеюсь поможет.
4) разговор по телефону, вы обмениваетесь данными с собеседником, двухсторонняя связь
Const n = 10;
Var m : array[1..n] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to n do
Begin
m[i]:=Random(50);
Write(m[i]:3);
end;
Writeln;
For i:=1 to n do
Begin
If not Odd(m[i]) then m[i]:=m[i]*2;
Write(m[i]:3);
end;
Writeln;
end.
Текстовые файлы можно изменять и удалять