Cod sursa(job #979805)
Utilizator | Iacob Paul Cristian crysstyan | Data | 2 august 2013 20:09:35 |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.93 kb |
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.