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

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. Razlika u odnosu na prethodni zadatak je u FOR petlji gdje se ćlanovi niza ispsuje od većeg ka manjem indeksu tj. unazad.

Listing programa:

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

Ispis na ekranu:

Index