14.3.. Izračunati proizvod dvocifrenih brojeva cifre djeljiva sa 4.

Listing programa:

PROGRAM p14313009;
USES
  WinCrt;
VAR
x,y,a,b,c,d:integer;
BEGIN
  write('unesi dvocifrene brojeve x i y=');
  readln(x,y);
  a:=x div 10 ;
  b:=x mod 10;
  c:=y div 10;
  d:=y mod 10;
  if (a mod 4=0) and (b mod 4=0) and (c mod 4=0) and (d mod 4=0) then
    writeln('proizvod je=',x*y)
  else 
    writeln('cifre tih brojeva nisu djeljive sa 4');
end.

Ispis na ekranu:

Index