15.. Svaku riječ učitanog stringa ispisati u novom redu.

Opis programa: Sa FOR petljom se ispisuje znak po znak stringa Write(s[i]). Ako se pri provjeri IF ' ' <> s[i] THEN nađe prazan prostor, to je nova riječ ispisuje se novi red Writeln.

Listing programa:

PROGRAM P15111015;
USES 
  WinCRT;
VAR
  i : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  FOR i := 1 TO LENGTH(s) DO
    IF ' ' <> s[i] THEN 
      Write(s[i])
    ELSE 
      Writeln;
END.

Ispis na ekranu:

Index