Pagini recente » Cod sursa (job #3188423) | Cod sursa (job #629277) | Cod sursa (job #2628368) | Cod sursa (job #1921408) | Cod sursa (job #68361)
Cod sursa(job #68361)
const v1 : array[0..9] of byte=(0,1,5,2,8,3,9,2,8,7);
v2 : array[0..9] of byte=(0,1,7,0,6,1,7,4,8,7);
var n,k : integer;
f,g : text;
t : integer;
c : char;
c1,c2 : byte;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
readln(f,t);
for k:=1 to t do Begin
repeat
read(f,c);
c2:=c1;
c1:=ord(c)-48;
until eoln(f);
readln(f);
n:=7*c2;
if c2 mod 2=0 then n:=(n+v1[c1]) mod 10
else n:=(n+v2[c1]) mod 10;
writeln(g,n);
n:=0; c1:=0;c2:=0;
End;
close(g);
end.