Cod sursa(job #282892)

Utilizator gggbbbyyyDarkMan gggbbbyyy Data 18 martie 2009 15:11:50
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
var s:array[1..1000]of 0..9;
    f,g:text;
    c:string;
    i,n,m,x,sm,c1,c2:integer;
function md4(x:integer):integer;
begin
if x mod 4=0 then
  md4:=4
else
  md4:=x mod 4;
end;

function pu(x:integer):integer;
var i,s:integer;
begin
s:=1;
for i:=1 to md4(x) do
  s:=(s mod 10)*(x mod 10);
pu:=s;
end;

begin
s[1]:=1;
for i:=2 to 100 do
  s[i]:=(s[i-1]+pu(i))mod 10;
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
  begin
    readln(f,c);
    m:=length(c);
    c1:=ord(c[m])-48;
    c2:=0;
    if m>1 then
      c2:=ord(c[m-1])-48;
    c1:=c2*10+c1;
    writeln(g,s[c1]);
  end;
close(g);
end.

end.