8. astea | katea diagonalki erakutsi

?

Kateen azpiprogramak: length()

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

program KateaKarakterekaProzesatzenDuenPrograma ; const    iMAX = 35 ; type    tsKatea = string[iMAX] ;   var    sEsaldia: tsKatea ;    iLuzera, k: integer ; begin    write('Esaldi labur bat eman: ') ;    readln(sEsaldia) ;    writeln('Esaldia hau da:  ///', sEsaldia, '///') ;    iLuzera := length(sEsaldia) ;    writeln('///', sEsaldia, '/// esaldiaren luzera = ', iLuzera) ;     writeln ;        writeln('///', sEsaldia, '/// esaldia diagonalki pantailaratu:') ;    for k:=1 to length(sEsaldia) do    begin       writeln(sEsaldia[k]:k) ;    end ;    writeln ;           readln ; end.