Pagini recente » Cod sursa (job #2658780) | Cod sursa (job #3227242) | Cod sursa (job #2939393) | Cod sursa (job #557665) | Cod sursa (job #5699)
Cod sursa(job #5699)
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.