7.2.. Za učitane a i b izračunati z prema formuli:

Opis rješenja:

Listing programa:

PROGRAM P07211073;
USES 
  WinCrt;
VAR
 a,b,max,max1,z:real;
BEGIN
 WRITE('Ukucajte brojeve a i b: ');
 READLN(a,b);
 max:=a;
 IF a < b THEN
  max:=b;
 max1:=SQR(a);
 IF SQR(a) < SQR(b) THEN
   max1:=SQR(b);
 z:= (2*max)/(1+max1);
 WRITELN('z = ',z);
END.

Ispis na ekranu:

Index