Cod sursa(job #5604)

Utilizator Tase_CCapalna Tanase Tase_C Data 13 ianuarie 2007 13:38:07
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
const r: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);
var n:string;
    nr,err:byte;
begin
  assign(input, 'cifra.in'); reset(input);
  assign(output,'cifra.out'); rewrite(output);
  readln(n); delete(n,1,length(n)-2);
  val(n,nr,err);
  write((4*(nr div 4)+r[nr mod 4])mod 10;
  close(input); close(output);
end.