паскаль

  • Автор темы Dima65
  • Дата начала
D

Dima65

Гость
#1
Подскажите пожалуйста как можно в массиве "перевернуть" число, т.е. например из 15 сделать 51 или из 74 - 47.
Заранее благодарю!
 
A

astronom

Гость
#4
Делаешь из числа строку и перемешиваешь букАФФки :)
 
Y

Yason

Гость
#5
Если не ошибаюсь в деталях, должно быть так: 10*(x mod 10)+(x div 10).
 

Vadik(R)

Well-Known Member
12.12.2007
469
0
#7
Код:
function invert(x:integer):integer;
var
z:integer;
begin
z:=0;
while x>0 do
begin
z:=z*10+(x mod 10);
x:=x div 10
end;
invert:=z
end;
begin
...
for i:=1 to n do
a[i]:=invert(a[i]);
Вроде так, не проверял, писал на ходу.