Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Kelimeyi kaydırarak yazan program Cuma Haz. 06 2008, 12:23
uses wincrt; var a:string; i:byte; begin clrscr; writeln('bir kelime yazın'); readln(a); for i:=1 to length(a) do begin gotoxy(i,i); writeln(copy(a,i,1)); end; readln; end.