14.3.. Prebrojati dvocifrene brojeve kod kojih je razlika cifara djeljiva sa 2.

Listing programa:

PROGRAM p14313008;
USES
  WinCrt;
VAR
   i,j,d,r,br: integer;
begin
   for i:=10 to 99 do
   begin
        j:=i mod 10;
        d:=i div 10;
        r:=d-j;
        if abs(r) mod 2=0 then
           br:=br+1;
   end;
   writeln('ukupno ima ',br:2,' brojeva');
end.

Ispis na ekranu:

Index