Cod sursa(job #255656)

Utilizator 3xtr3m3Andrei Dragos 3xtr3m3 Data 10 februarie 2009 09:51:12
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.5 kb
type
   sir=array[0..100] of byte;
var x,t,i,p,c,j:longint;
f,g:text;
s:string;
v:sir;
begin
v[0]:=0;
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
x:=0;
for i:= 1 to 100 do begin
  p:=1;
  c:= i mod 10;
  for j:= 1 to i do
    p:=p*c mod 10;
  x:=(x+p) mod 10;
  v[i]:=x;
  end;
for j:=1 to t do
    begin
    readln(f,s);
    s:='0'+s;
    s:=copy(s,length(s)-1,2);
    val(s,i,x);
    writeln(g,v[i]);
    end;
close(f); close(g);
end.