Cod sursa(job #923082)
Utilizator | Data | 22 martie 2013 21:03:48 | |
---|---|---|---|
Problema | Cifra | Scor | 80 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.51 kb |
program cifra;
var
s:string;
sir: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);
t,ultima,i,temp:integer;
fin,fout:text;
begin
assign(fin,'cifra.in');
assign(fout,'cifra.out');
reset(fin);
rewrite(fout);
readln(fin,t);
for i:=1 to t do
begin
readln(fin,s);
delete(s,1,length(s)-2);
s:='0'+s;
val(s[length(s)-1]+s[length(s)],temp);
ultima:=(sir[temp mod 20]+(temp div 20)*4) mod 10;
write(fout,ultima);
if i<t then
writeln(fout);
end;
close(fin);
close(fout);
end.