Önce string çevir integeri. Sonra bi donguyle tersten yazabilirsin. var a,c:integer; b:string; begin a:=123; str(a,b); for c:= length(b) downto 1 do write(b[c]); end.
str ile a değişkenin b nin içine attık.b nin uzunluğundan 1 e doğru azalan döngü açtık. write(b[c]); ile sondan başa doğru yazdık.
Teknoloji Haberleri
Bu mesaja 1 cevap geldi. Cevapları Gizle
123456 yı 654321 şeklinde yazdırmak değil mi?
bi araştıralım bakalım
Bu mesaja 1 cevap geldi. Cevapları Gizle
Bu işini görebilir sanırım
< Bu mesaj bu kişi tarafından değiştirildi system32 -- 9 Mayıs 2005, 17:30:22 >
Bu mesaja 1 cevap geldi. Cevapları Gizle
www.programlama.comü
Özürdilerim.
Bu mesaja 1 cevap geldi. Cevapları Gizle
Sonra bi donguyle tersten yazabilirsin.
var a,c:integer; b:string; begin a:=123; str(a,b); for c:= length(b) downto 1 do write(b[c]); end.
str ile a değişkenin b nin içine attık.b nin uzunluğundan 1 e doğru azalan döngü açtık.
write(b[c]); ile sondan başa doğru yazdık.