Cod sursa(job #524866)

Utilizator reginaRegina M. regina Data 23 ianuarie 2011 14:13:18
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.71 kb
program ultimaCifra;

var
  aux,i,t,pc,uc:integer;
  v : array[0..99] of integer;
  f,g:text;
  s:string;


function putere(x,pow:integer):integer;
var
  xc,t:integer;
begin
  xc := x;
  for t:=2 to pow do
      xc := (xc * x) mod 10;
  putere := xc;
end;

begin
  v[0]:= 0;

  for i:=1 to 99 do
    v[i]:=(v[i-1] + putere(i mod 10, i)) mod 10;

  assign(f,'cifra.in'); reset(f);
  assign(g,'cifra.out');rewrite(g);

  uc := 0;
  readln(f,t);

  for i:=1 to t do begin
     readln(f,s);

     val(s[length(s)], uc, aux);

     if length(s)> 1 then
        val(s[length(s)-1], pc, aux)
     else
        pc := 0;
    writeln(g, v[pc*10+uc]);
  end;
  close(g);
  close(f);
end.