{ 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.