7.1.. Napisati program za ispis reciprocne vrijednosti broj ako je različit od nule
PROGRAM RAZ3_1_4; VAR x, y : REAL; BEGIN WRITE('Broj '); READLN( x ); IF x <> 0 THEN y := 1/x ; WRITELN('x = ', x, ' y ', y ); READLN; END.
Ispis na ekranu:
Index