Pagini recente » Cod sursa (job #1392231) | Cod sursa (job #2869140) | Cod sursa (job #3250433) | Cod sursa (job #2494629) | Cod sursa (job #34619)
Cod sursa(job #34619)
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.