Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Yazıyı Tersten Yazdıran Program Cuma Haz. 06 2008, 12:20
program tersyazi; uses wincrt; var mesaj:string; i:byte; begin write('mesaji gir:'); readln(mesaj); for i:= length(mesaj) downto 1 do write(copy(mesaj,i,1)); readln; end.