Cod sursa(job #5699)

Utilizator mariuscris90giuroiu marius mariuscris90 Data 13 ianuarie 2007 20:32:38
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.59 kb
program cifra;
type vector=array[0..100] of longint;
var s,s1:string;
    v:vector;
    e:integer;
    t,i,sum,m,k,x,p:longint;
    f,g:text;
begin
assign(f,'cifra.in');assign(g,'cifra.out');reset(f);rewrite(g);
readln(f,t);v[0]:=0;
for i:=1 to 100 do begin
v[i]:=1;
for k:=1 to i do v[i]:=(v[i]mod 10)*i mod 10
end;p:=0;
for i:=1 to 100 do begin
p:=p+(v[i]mod 10);
v[i]:=p mod 10;end;
for i:=1 to t do begin
readln(f,s);
if length(S)>=2 then begin
s1:=s[length(s)-1]+s[length(s)];
if s1[1]='0' then s1:=s1[2];end
else s1:=s;
val(s1,x,e);writeln(g,v[x]);
end;
close(F);close(g);end.