15.2. Ucitati rijec (kao string). Ispisati znakove rijeci prema uzorku na slici:

Opis rješenja: Na slici je prikazan odnos redova i kolona.

Slika 1. Glavna dijagonala i=j

Ovaj ispis se ponekad naziva i "Ispis ispod i na glavnoj dijagonali":

Listing programa:

PROGRAM P15114004;
USES 
  WinCRT;
VAR
  i, j : Integer;
  s : String;
BEGIN
  Write('Unesi string ');
  Readln(s);
  FOR i := 1 TO LENGTH(s) DO
    BEGIN
      FOR j := 1 TO i DO
        Write(s[j]); {ispis znak po znak}
      Writeln(); { novi red }
    END;
END.

Ispis na ekranu:

Index