Pagini recente » Cod sursa (job #2899635) | Cod sursa (job #1828836) | Cod sursa (job #2687157) | Cod sursa (job #3179150) | Cod sursa (job #979805)
Cod sursa(job #979805)
program sadfa;
var f,g:text;
s:string;
c:char;
i,n,l,val,r,rez:integer;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
readln(f,n);
for i:=1 to n do
begin
readln(f,s);
l:=length(s);
c:=s[l];
val:=ord(c)-48;
if val=1 then
writeln(g,'1')
else
if val=2 then
writeln(g,'5')
else
if val=3 then
writeln(g,'2')
else
if val=4 then
writeln(g,'8')
else
if val=5 then
writeln(g,'3')
else
if val=6 then
writeln(g,'9')
else
if val=7 then
writeln(g,'2')
else
if val=8 then
writeln(g,'8')
else
writeln(g,'7');
end;
close(f);
close(g);
end.