8.1.. Napisati program za ispis kvadrata prirodnih brojeva do n (FOR petlja).

Opis rješenja:

Opis programa: Izračunavanje kvadrata se izvodi funkcijom SQR.

Listing programa:

PROGRAM p08111031;
VAR                  { deklarisanje promjenljivih }
  i, n : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  WRITE('Do broja ');
  READLN( n );
  
  FOR i := 1 TO n DO                                { ponavljaj za i=1 do n - pocetak petlje - pocetak petlje }
    WRITELN('i = ', i,'   kvadrat = '  , SQR(i) );  { ispis kvadrata broja }
	
  READLN;
END.

Ispis na ekranu:

Index