Pagini recente » Cod sursa (job #226718) | Cod sursa (job #658628) | Cod sursa (job #2976331) | Cod sursa (job #2472879) | Cod sursa (job #921828)
Cod sursa(job #921828)
program cifra;
var
s:string;
sir:array[0..19] of byte;
t,ultima,i,temp,err:integer;
fin,fout:text;
begin
assign(fin,'cifra.in');
assign(fout,'cifra.out');
reset(fin);
rewrite(fout);
readln(fin,t);
sir[0]:=0;
sir[1]:=1;
sir[2]:=1+4;
sir[3]:=1+4+7;
sir[4]:=1+4+7+6;
sir[5]:=1+4+7+6+5;
sir[6]:=1+4+7+6+5+6;
sir[7]:=1+4+7+6+5+6+3;
sir[8]:=1+4+7+6+5+6+3+6;
sir[9]:=1+4+7+6+5+6+3+6+9;
sir[10]:=7;
sir[11]:=8;
sir[12]:=4;
sir[13]:=7;
sir[14]:=3;
sir[15]:=8;
sir[16]:=4;
sir[17]:=1;
sir[18]:=5;
sir[19]:=4;
for i:=1 to t do
begin
readln(fin,s);
val(s,temp,err);
temp:=temp div 20;
ultima:=(temp*4) mod 10;
val(s,temp,err);
ultima:=(ultima+sir[temp mod 20]) mod 10;
write(fout,ultima);
if i<t then
writeln(fout);
end;
close(fin);
close(fout);
end.