Predmet:Dali je vrijednost parna ili neparna.
Prrovjerava dali je unasena vrijednost parna ili neparna.
PreuzmiIzvorni kôd (Delphi):PROGRAM PROGRAM3;
USES
WinCrt;
VAR
x, y : REAL;
BEGIN
WRITE('Dva broja ');
READLN( x, y );
IF x MOD 2 = 0 THEN
BEGIN
x := x - 2;
y := x - 2;
END
ELSE
BEGIN
x := x + 2;
y := x + 2;
END;
Writeln('x= ', x, ' y= ', y);
END.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.