Cod sursa(job #34619)

Utilizator dorinelburiceanu dorin gabriel dorinel Data 20 martie 2007 22:50:41
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.77 kb
program cifra;
var n,t,cz,u,i: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*7 mod 10;
	if n 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.