Cod sursa(job #29066)
Utilizator | Serban Andrei Stan savim | Data | 8 martie 2007 16:28:48 |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.47 kb |
var f1,f2:text;
i,t,q,ok,k:integer;
s:string;
begin
assign(f1,'cifra.in');
assign(f2,'cifra.out');
reset(f1);
rewrite(f2);
readln(f1,t);
for i:=1 to t do
begin
readln(f1,s);
if length(s)>=100 then
case s[length(s)] of
'0':writeln(f2,'0');
'1':writeln(f2,'1');
'2':writeln(f2,'5');
'3':writeln(f2,'2');
'4':writeln(f2,'8');
'5':writeln(f2,'3');
'6':writeln(f2,'9');
'7':writeln(f2,'2');
'8':writeln(f2,'0');
'9':writeln(f2,'9');
end
else
begin
val(s,q,ok);
k:=((q div 10)*7) mod 10;
case q mod 10 of
0:writeln(f2,k);
1:writeln(f2,(k+1) mod 10);
2:writeln(f2,(k+5) mod 10);
3:writeln(f2,(k+2) mod 10);
4:writeln(f2,(k+8) mod 10);
5:writeln(f2,(k+3) mod 10);
6:writeln(f2,(k+9) mod 10);
7:writeln(f2,(k+2) mod 10);
8:writeln(f2,k mod 10);
9:writeln(f2,(k+9) mod 10);
end;
end;
end;
close(f1);
close(f2);
end.