код программы вот:
program SS;
var
j, i: integer;
s, s_dec: string;
f_out: text;
function DecToOther(x:longint;R:word):string;
var ost:longint;
s,st,chislo:string;
i:integer;
begin
chislo:='';s:='';st:='';
repeat
ost:=x mod R;
x:=x div R;
if ost>9 then
st:=chr(ord('A')-10+ost)
else str(ost,st);
s:=s+st;
until x=0;
for i:=1 to length(s) do
chislo:=chislo+s[length(s)-i+1];
DecToOther:=chislo;
end;
Function SwapSymbols(s: string): string;
Var
i:integer;
Temp: String;
begin
Temp := '';
For i:=1 to Length(s)do
Temp:=s[i] + Temp;
SwapSymbols:=Temp;
end;
begin
assign(f_out, 'res.txt');
rewrite(f_out);
for j := 2 to 16 do
begin
if j = 10 then continue;
writeln(j,'-ja sistema schislenia');
for i := 10 to 999 do
begin
s_dec := DecToOther(i, 10);
s := DecToOther(i, j);
if SwapSymbols(s) = s_dec then begin
Writeln( 's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10);
Writeln(f_out, 's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10);
end;
end;
end;
close(f_out);
readln;
end.
