Răspuns:
program ultimacifra;
var
a:array[1..100] of integer;
i,n,produs,ultima_cifra:integer;
begin
write('Dati numarul n: ');
readln(n);
for i:=1 to n do
a[i]:=i;
produs:=1;
for i:=1 to n do
produs:=produs*a[i];
{Ultima cifra este restul impartirii lui produs la 10}
ultima_cifra:=produs mod 10;
writeln('Ultima cifra a produsului 1*2*3*....*n este : ',ultima_cifra);
readln;
end.
Explicație:
In mod normal nu ar fi nevoie de vectori(ARRAY) pentru acest exercitiu, dar daca asa ti s-a cerut...
