Number (string) writes from the back

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Program: Odzadus.pas
File exe: Odzadus.exe

Number (string) writes from the back.
{ ODZADUS.PAS               Copyright (c) TrSek alias Zdeno Sekerak }
{ Zadane cislo ( retazec ) vypise odzadu.                           }
{                                                                   }
{ Datum:23.05.2004                             http://www.trsek.com }
 
program cislo_naopak;
var c:real;
    i:integer;
    s:string;
 
begin
  WriteLn('Vypise odzadu cislo/retazec');
  Write('Zadaj cislo/retazec s=');
  ReadLn(s);
 
  Write('Cislo/retazec naopak je:');
  for i:=length(s) downto 1 do
    Write(s[i]);
 
  ReadLn;
end.