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:
![](../../pascal_prir/064/064_izvedi/06411138.gif)
Index
|
![](../../epp/000/Asistent.jpg) |