Question

Va rog mult in PASCAL. Am atasat o poza ! Daca se poate cu arrays.

Answer 1

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...