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

Opis rješenja:

Listing programa:

PROGRAM P07211070;
USES 
  WinCrt;
VAR 
 a,b,max1,max2,z:real;
BEGIN
 WRITE('Ukucajte brojeve a i b: ');
 READLN(a,b);
 max1:=a;
 IF a < b THEN
   max1 := b;
 max2 := SQR(a);
 IF SQR(a) < SQR(b) THEN
   max2 := SQR(b);
 IF b>=0 THEN
   z := 2-max1
 ELSE
  z := max2;
 WRITELN('z = ',z);
END.

Ispis na ekranu:

Index