Pagini recente » Cod sursa (job #1045963) | Cod sursa (job #1273794) | Cod sursa (job #2305004) | Cod sursa (job #930119) | Cod sursa (job #5416)
Cod sursa(job #5416)
program p1;
var a:array[0..9,0..9] of byte;
v:array[0..10] of byte;
f,g:text;
u,u1,b:byte;
t,i,j,cr,er,n:word;
s:string[100];
begin
v[1]:=1;
v[2]:=5;
v[3]:=2;
v[4]:=8;
v[5]:=3;
v[6]:=9;
v[7]:=2;
v[8]:=8;
v[9]:=7;
v[9]:=7;
v[10]:=0;
assign(f,'cifra.in'); reset(f);
readln(f,t);
assign(g,'cifra.out'); rewrite(g);
for i:= 1 to t do
begin
readln(f,s);
val(s[length(s)],n,er);
writeln(g,v[n]);
end;
close(f);
close(g);
end.