Cod sursa(job #2394840)

Utilizator PatrickvasileSoltan Cristian Patrickvasile Data 1 aprilie 2019 22:59:31
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
var
  fout, fin: textfile;
  c,a,s, n, i: integer;
  type vector= array [1..1000] of integer;
  var x,y,b:vector;
  
 function xlax (n:longint):longint;
  var c,i:longint;
  begin
  c:=1;
  for i:=1 to n do 
  c:=c*n;
  xlax:=c;
  end;

begin
  assign(fin, 'cifre.in');
  reset(fin);
  assign(fout, 'cifre.out');
  rewrite(fout);
  read(fin, n);
   for c := 1 to n do readln (x[c]);
  for i := 1 to x[c] do 
   y[i]:=  s + xlax(i);
  for i := 1 to x[i] do b[c]:= y[i] mod 10;
  writeln(fout,b);
 
  close(fin);
  close(fout);
end.