6.4.. Izračunati korijen sume kvadrata tri učitana broja.

Listing programa:

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

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

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

  Write('3. broj ');
  Readln(c);  
   
   s := SQRT(SQR(a) + SQR(b) + SQR(c));  { korijen kvadrata 3 ucitana broja }  

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

Ispis na ekranu:

Index