14.3.. Izračunati proizvod dvocifrenih brojeva kod kojih je razlika cifara djeljiva sa 2.

Listing programa:

PROGRAM p14313010;
USES
  WinCrt;
VAR
  i,exp:integer;
  p:real;
BEGIN
program 
uses wincrt;
var
   i,j,d: integer;
   p:longint;
begin
p:=1;
   for i:=10 to 99 do
   begin
        j:=i mod 10;
        d:=i div 10;
        if abs(d-j) mod 2=0  then
           p:=p*i;
   end;
   writeln('proizvod je ',p:2);
end.

Ispis na ekranu:

Index