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

Opis rješenja:

Listing programa:

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

Ispis na ekranu:

Index