15.2. Učitati niz znakova /STRING/ . Ispisati znak ispod znaka upisanog stringa.

Opis programa: String se ispisuje znak po znak korištenjem naredbe LENGTH (broj znakova u stringu) i time što je s[i] definisan kao niz znakova. Ispis znak po znak se izvodi sa s[i] , a ispis u novi red naredbom Writeln

Listing programa:

PROGRAM P15111012;
USES 
  WinCRT;
VAR
  i : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  FOR i := 1 TO LENGTH(s) DO
    Writeln(i, '-ti znak = ', s[i]);
END.

Ispis na ekranu:

Index