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

Opis programa:

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
PROGRAM P06411143;
var
  a, b, s: real;
BEGIN
  writeln('Unesi dva broja');
  readln(a);
  readln(b);
  s: = sqr(a) + sqr(b);
  writeln('Korijen sume kvadrata dva učitana brooja', sqrt(s));
  READLN;
END.

Ispis na ekranu:

Index