6.4.. Izračunati sumu kvadrata tri učitana broja.

Listing programa:

PROGRAM P06411138;
VAR              { deklarisanje promjenljivih }
 a, b, c, s : Real;   { realne promjenljive }
BEGIN
  WRITELN('suma kvadrata 3 broja');  { naslov }

  Write('1. broj ');    { brojevi }
  Readln(a);

  Write('2. broj ');
  Readln(b);      

  Write('3. broj ');
  Readln(c);  
   
   s := SQR(a) + SQR(b) + SQR(c);

  Writeln( 'a = ', a, 'b = ', b , 'c = ', c , 's = ', s );      { izlaz - vrijednosti }
  READLN;
END.

Ispis na ekranu:

Index