Показать сообщение отдельно
  #2  
Старый 11.10.2019, 23:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,004
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну, например, так (если мы точно знаем, что число всегда 6-значное):
Код:
function GetEquation(N : Integer) : String;
var
  Left, Right : Integer;
  NS : String;
begin
  NS := IntToStr(N);
  Left := StrToInt(NS[1])+StrToInt(NS[3])+StrToInt(NS[5]);
  Right := StrToInt(NS[2])+StrToInt(NS[4])+StrToInt(NS[6]);
  If Left = Right Then Result := ' = ' Else
    If Left < Right Then Result := ' < ' Else Result := ' > ';
  Result := NS[1] + ' ' NS[3] + ' ' + NS[5] + Result + NS[2] + ' ' NS[4] + ' ' + NS[6];
end;
Ответить с цитированием