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

Opis rješenja:

Listing programa:

PROGRAM p14313005;
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