Pagini recente » Cod sursa (job #1197192) | Cod sursa (job #196049) | Cod sursa (job #2771895) | Cod sursa (job #2680854) | Cod sursa (job #363650)
Cod sursa(job #363650)
program cifre;
var
f,g : text;
t,n,err,i : integer;
vek : array[1..30000] of byte;
s : string;
const
v : array[0..19] of byte = (0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4);
begin
assign(f,'cifre.in'); reset(f);
assign(g,'cifre.out'); rewrite(g);
readln(f,t);
for i := 1 to t do
begin
readln(f,s);
if length(s)>=2 then
n := (ord(s[length(s)-1])-48)*10 + (ord(s[length(s)])-48)
else
n := ord(s[length(s)])-48;
vek[i] := ((n div 20)*4+v[n mod 20]) mod 10;
end;
for i := 1 to t do
writeln(g,vek[i]);
close(f);
close(g);
end.