Cod sursa(job #54212)

Utilizator bogdan88Bogdan Popescu bogdan88 Data 24 aprilie 2007 15:54:35
Problema Cifra Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.49 kb
type vector=array[0..20]of byte;
const sum:vector=(0,1,5,2,8,3,9,2,8,7,7,8,4,7,3,8,4,1,5,4,4);
var t,i,e:integer;
    fi,fo:text;
    n,rasp:int64;
begin
     assign(fi,'cifra.in'); reset(fi);
     assign(fo,'cifra.out'); rewrite(fo);
     readln(fi,t);
     for i:=1 to t do
        begin
             readln(fi,n);
             rasp:=(n div 20)*sum[20]+sum[n mod 20];
             rasp:=rasp mod 10;
             writeln(fo,rasp);
        end;
     close(fi);
     close(fo);
end.