Cod sursa(job #111412)

Utilizator darkmanalexandru catalisan darkman Data 29 noiembrie 2007 19:59:35
Problema Cifra Scor 100
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.52 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;
    raspunde:array[0..99] of integer;
begin
  assign(input,'cifra.in'); reset(input);
  assign(output,'cifra.out'); rewrite(output);
  for k:=0 to 99 do
    raspunde[k]:=(4*(k div 20)+r[k mod 20])mod 10;
  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(raspunde[n]);
  end;
  close(input); close(output);
end.