Cod sursa(job #566114)

Utilizator palatyimAtyim Paul palatyim Data 28 martie 2011 17:40:42
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.59 kb
program cifra;
var n,k,l,e,j,m :longint;
var a : array[1..99] of longint;
var x,t :string;
var f,ff :text;
function h(g :longint) : longint;
var p,s :longint;
begin
p:=1;
for s:=1 to g do
begin
p:=p*g;
p:=p mod 10;
end;
h:=p;
if g=0 then
h:=0;
end;
begin
m:=0;
for j:=1 to 99 do
begin
m:=m+h(j);
a[j]:=m mod 10;
end;
assign(f,'cifra.in');
reset(f);
assign(ff,'cifra.out');
rewrite(ff);
readln(f,n);
for k:=1 to n do
begin
readln(f,x);
t:='';
if length(x)>1 then
t:=t+x[length(x)-1];
t:=t+x[length(x)];
val(t,l,e);
writeln(ff,a[l]);
end;
close(f);
close(ff);
end.