7.2.. Od tri broja naći recipročnu vrijednost najmanjeg a ako je min=0 ispisati 3.

Opis rješenja:

Listing programa:

PROGRAM naj07212003;
USES WinCRT;
VAR
  a,b,c,min:Integer;
  r:Real;
BEGIN
  Write('a,b,c =');
  Readln(a,b,c);
  min:=a;
  IF b < min then min:=b;
  IF c < min then min:=c;
  Writeln('najmanji je : ', min);
  IF min=0 THEN 
    Writeln(' 3 ')
  ELSE
    BEGIN
      r := 1/min;
      Writeln('r=',r:4:2);
    END;
END.

Ispis na ekranu:

Index