Pagini recente » Cod sursa (job #1731896) | Cod sursa (job #1382656) | Cod sursa (job #2279584) | Cod sursa (job #1053843) | Cod sursa (job #36306)
Cod sursa(job #36306)
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.