Целочисленная арифметика

[Neyrone]

http://s005.radikal.ru/i209/1003/f8/88e4bbac7648.jpg

вот такое задание в дельфи, не кто не мог бы написать код к нему

[p51x]

В фрилансе точно напишут.

[Neyrone]

Кто то помоч может с кодом?(

[Пепел Феникса]

100р и код ваш.

[fenix-elite]

Вот самый наипримитивнейший способ, ибо думать не хочется ))

procedure TForm3.btn1Click(Sender: TObject);
var
  i:Integer;
  c: char;
  s:string;
begin
mmo1.Lines.LoadFromFile('C:\in.txt');

s:=mmo1.Lines.Text;
 for i:=1 to Length(s) do begin
  if  (s[i]>'А')and(s[i]<'я') then begin
   c:=s[i];

    case c of
     'А' : c:='Я';
     'а' : c:='я';
    else
     dec(c);
    end;

  s[i]:=c;
  end;
 end;
mmo2.Lines.Text:=s;
mmo2.Lines.SaveToFile('C:\out.txt');
end;

end.