Cod sursa(job #36306)

Utilizator dorinelburiceanu dorin gabriel dorinel Data 23 martie 2007 13:17:56
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.74 kb
program cifra;
var t,u,cz,i:byte;n:longint;
    f,g:text;
begin
assign(f,'cifra.in');
reset(f);
assign(g,'cifra.out');
rewrite(g);
read(f,t);
for i:=1 to t do begin
read(f,n);
u:=n mod 10;
n:=n div 10;
cz:= n mod 10;
n:=cz*7 mod 10;
if cz mod 2 =0 then
case (u) of
1:	n:=(n+1) mod 10;
2:  n:=(n+5) mod 10;
3:	n:=(n+12) mod 10;
4:	n:=(n+18) mod 10;
5:	n:=(n+23) mod 10;
6:	n:=(n+29) mod 10;
7:  n:=(n+32) mod 10;
8:  n:=(n+38) mod 10;
9:	n:=(n+47) mod 10;
end
else
case (u) of
1:	n:=(n+1) mod 10;
2:  n:=(n+7) mod 10;
3:	n:=(n+10) mod 10;
4:	n:=(n+16) mod 10;
5:	n:=(n+21) mod 10;
6:	n:=(n+27) mod 10;
7:  n:=(n+34) mod 10;
8:  n:=(n+38) mod 10;
9:	n:=(n+47) mod 10;
end;
writeln(g,n);
end;
close (f);
close (g);
end.