С# на переписать надо
{
for (int i = 0; i !IsPalindrom(x)));
Console.WriteLine(newStr);
}

например число 123 - 6 комбинаций, 120 - 4 комбинации.

также работает с 4значными

Объяснение:

program prog;

var  num,i,j,tmp:integer;

arr:array [1..4] of integer=(-1,-1,-1,-1);

zero: boolean;

begin

writeln('Input number:');

readln(num);

i:=1;j:=1;zero:=false;

while num<>0 do begin

 tmp:=num mod 10;

 if (tmp<>arr[1]) and (tmp<>arr[2]) and (tmp<>arr[3]) and (tmp<>arr[4]) then begin

  arr[i]:=tmp;

  if (zero=false) and (tmp=0) then zero:=true;

  write(i,':');

  writeln('arr[i]=',arr[i]);

  writeln('num=',num);

  i:=i+1

 end;

 num:=num div 10;

end;

num:=1;tmp:=1;

i:=i-1;

for j:=1 to i do num:=num*j;

if zero=true then begin

 for j:=1 to i-1 do tmp:=tmp*j;

 num:=num-tmp;

end;

writeln('vsego chisel =',num);

end.

1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.