7.2.. Učitati prirodan broj. Ako je neparan ispisati njegovu recipročnu vrijednost, a ako je paran ispisati kvadratni korijen njegovog sljedbenika:

Opis rješenja: Formula po kojoj se izvodi izračunavanje zavisi od parnosti - neparnosti učitanog broja.

PROGRAM p07211056;
USES
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  a : INTEGER;            { cjelobrojna promjenljiva }
  y : REAL;               { realna promjenljiva }
BEGIN
  WRITE('Broj: ');        { ulazne promjenljive }
  READLN( a );            { ulaz - ucitavanje vrijednosti }
  IF a MOD 2 <> 0 THEN    { ako je a neparno, tada }
    y := 1/a              { broj neparan - izraz1 }
  ELSE                    { inace }
    y := SQRT(a+1);       { broj paran - izraz2 }
  WRITELN('a ', a,  '    y ', y );  { izlaz - ispis }
END.

Ispis na ekranu:

Index