Pagini recente » Cod sursa (job #2613372) | Cod sursa (job #341471) | Cod sursa (job #2916095) | Cod sursa (job #3283060) | Cod sursa (job #68331)
Cod sursa(job #68331)
const v1 : array[1..9] of byte=(1,4,7,6,5,6,3,6,9);
v2 : array[1..9] of byte=(1,6,3,6,5,6,7,4,9);
var n,nr,p,i,j,k : longint;
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:= c2*7;
if c2 mod 2=0 then for i:=1 to c1 do n:=n+v1[i]
else for i:=1 to c1 do n:=n+v2[i];
writeln(g,n mod 10);
n:=0; c1:=0;c2:=0;
End;
close(g);
end.