Cod sursa(job #111410)
Utilizator | Data | 29 noiembrie 2007 19:56:36 | |
---|---|---|---|
Problema | Cifra | Scor | 90 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.43 kb |
const r:array[0..20] of integer=
(0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,4);
var s:string;
n,err,t,k:integer;
begin
assign(input,'cifra.in'); reset(input);
assign(output,'cifra.out'); rewrite(output);
readln(t);
for k:=1 to t do begin
readln(s);
if length(s)>2 then delete(s,1,length(s)-2);
val(s,n,err);
writeln((4*(n div 20)+r[n mod 20]) mod 10);
end;
close(input); close(output);
end.