Umístnení souboru www.TrSek.com/zadania/znak_pre.pas

{ ZNAK_PRE.PAS              Copyright (c) TrSek alias Zdeno Sekerak }
{ Vyziada od uzivatela cislo a vymeni v nom prvu a poslednu cislicu }
{                                                                   }
{ Datum:27.09.2005                             http://www.trsek.com }

program znak_pre;

var cis: integer;
    ret: string;
    znak: char;
    i1,i2: integer;

begin
  Write('Zadaj cislo:');
  ReadLn( cis );

  { prevedie na retazecv }
  Str( cis, ret );

  { pozicie prveho, posledneho znaku }
  i1 := 1;
  i2 := length( ret );

  znak := ret[i1];
  ret[i1] := ret[i2];
  ret[i2] := znak;

  WriteLn('Cislo s vymenenimy znakmi je:', ret);
  ReadLn;
end.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com