Pagini recente » Cod sursa (job #110978) | Cod sursa (job #2604675) | Cod sursa (job #1743100) | Cod sursa (job #1283697) | Cod sursa (job #58319)
Cod sursa(job #58319)
program cifra;
const szjegy:array[1..9] of byte = (1,4,7,6,5,6,3,6,9);
temp:array[1..9] of byte = (0,1,1,0,0,0,1,1,0);
var f,fout:text;
t,i:word;
sz:string;
function megold:byte;
var i:byte;
e,t:word;
begin
e:=0;
for i:=1 to 9 do
begin
t:=(ord(sz[length(sz)-1])-48);
if(ord(sz[length(sz)])-48 >= i) then t:=t+1;
if(temp[i] = 0) then
begin
e:=e+t*szjegy[i];
e:=e mod 10;
end else
begin
if(t mod 2 = 1) then e:=e+t*szjegy[i];
e:=e mod 10;
end;
end;
megold:=e;
end;
begin
assign(f,'cifra.in');
assign(fout,'cifra.out');
reset(f);
rewrite(fout);
readln(f,t);
for i:=1 to t do
begin
readln(f,sz);
if(length(sz)=1) then insert('0',sz,1);
writeln(fout,megold);
end;
close(f);
close(fout);
end.