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

Opis rješenja:

Listing programa:

PROGRAM p14313006;
USES
  WinCrt;
VAR
  i,exp:integer;
  p:real;
BEGIN
p:=1;
for i:=10 to 99 do
 if i mod 3 <> 1 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