PHP? Зачем. Вариант на паскале:
<span>var i,j:integer;
begin
write('3x znschnoe chislo');
readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln(j);
end.</span>
===== PascalABC.NET =====
begin
var a := ReadArrInteger('a:', 10);
var b := ReadArrInteger('b:', 10);
var L := new List<integer>;
var (m, im) := (a[0] * b[0], 0);
for var i := 1 to a.High do
begin
var c := a[i] * b[i];
if c > m then
begin
L.Clear;
L.Add(i);
(m, im) := (c, i)
end
else if c = m then
L.Add(i);
end;
foreach var i in L do
Println(i + 1, a[i], b[i], a[i] * b[i] / 2)
end.
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Здесь в условии задачи явная опечатка, т.к. в приведенном случае натуральных решений нет. Если немного изменить условие, например, так:
320(x+1)-310(x+2)+69=0, (x+1 и x+2 - основание системы счисления), то решать можно так:
3*(x+1)²+2*(x+1)-3*(x+2)²-1*(x+2)+69=0
3*(x²+2x+1)+2*(x+1)-3*(x²+4x+4)-(x+2)+69=0
3x²+6x+3+2x+2-3x²-12x-12-x-2+69=0
-5x-9+69=0
x=12
Можно сделать проверку:
3*13²+2*13-3*14²-14+69=0
3*169+26-3*196-14+69=0
507+26-588-14+69=0
602-602=0