Cod sursa(job #68029)

Utilizator mihaelams1Mihaela Rusu mihaelams1 Data 26 iunie 2007 12:04:36
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.57 kb
var a:array[0..99] of integer;
f,g:text;
i,j,t,aux,p,b,r,l,a2,a3,cod:longint;
n:string;

procedure calc(m:integer);
begin
p:=m mod 4;
b:=m mod 10;
case p of
0:r:=b*b*b*b;
1:r:=b;
2:r:=b*b;
3:r:=b*b*b;
end;
a[m]:=r mod 10;
if m>0 then a[m]:=(a[m]+a[m-1])mod 10;
end;

begin
assign(f,'cifra.in');
reset(f);
read(f,t);
assign(g,'cifra.out');
rewrite(g);
for i:=0 to 99 do begin
calc(i);
end;
for i:=1 to t do begin
readln(f);
read(f,n);
val(n[length(n)-1],a2,cod);
val(n[length(n)],a3,cod);
l:=a2*10+a3;
writeln(g,a[l]);
end;
close(f);
close(g);
end.