14.3.. Izračunati proizvod dvocifrene brojeva kod kojih je pri djeljenju sa 3 ostatak 1.

Opis rješenja:

Listing programa:

PROGRAM p14313007;
USES
  WinCrt;
VAR
  i,exp:integer;
  p:real;
BEGIN
 p:=1;
 for i:=10 to 99 do
  if i mod 3 <> 2 then
begin
 p:=p*i;
 if p>100 then
begin
  p:=p/100 ;
  exp:=exp+2 ;
end
else
begin
  p:=p/10;
  exp:=exp+1;
end;
writeln(i,' proizvod brojeva je ',p:3:8,' * 10 exp ',exp);
end;
END.

Ispis na ekranu:

Index