npr za unet broj 10 treba da ispise 8:
1*2*3*4*5*6*7*8*9*10 = 3628800;
Unapred hvala ! ! ! Poz.
program proizvod;
var p:integer;
n,i : word;
r :byte;
begin
readln(n);
p:=1;
for i := 1 to n do
begin
p:=p*i;
r:=p mod 10;
while (r=0)do begin
p:=p div 10;
r:=p mod 10;
end;
p :=r;
end;
if (p<0) then p:=-p;
writeln(p);
readln;
end.