Тема: задача
Показать сообщение отдельно
  #3  
Старый 18.01.2012, 19:18
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Код:
s:=inttostr(N);
k:=length(s);
setlength(s1,k);
for i:=1 to length(s) do
  s1[i]:=s[k-i+1];
N:=StrToInt(s1);
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием