Cod sursa(job #339136)

Utilizator horascosma horatiu horas Data 8 august 2009 14:02:20
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.68 kb
program num;
var n:longint;
    t,i:integer;
    f,g:text;
begin
assign(g,'cifra.in');reset(g);
assign(f,'cifra.out');rewrite(f);
readln(g,t);
for i:=1 to t do begin
                 readln(g,n);
                 if n mod 20=0 then writeln(f,(n div 20)*7 mod 10);
                 if n mod 20=1 then writeln(f,((n div 20)*7+1) mod 10);
                 if n mod 20=2 then writeln(f,((n div 20)*7+5) mod 10);
                 if n mod 20=3 then writeln(f,((n div 20)*7+2) mod 10);
                 if n mod 20=4 then writeln(f,((n div 20)*7+8) mod 10);
                 if n mod 20=5 then writeln(f,((n div 20)*7+3) mod 10);
                 if n mod 20=6 then writeln(f,((n div 20)*7+9) mod 10);
                 if n mod 20=7 then writeln(f,((n div 20)*7+2) mod 10);
                 if n mod 20=8 then writeln(f,((n div 20)*7+8) mod 10);
                 if n mod 20=9 then writeln(f,((n div 20)*7+7) mod 10);
                 if n mod 20=10 then writeln(f,((n div 20)*7+7) mod 10);
                 if n mod 20=11 then writeln(f,((n div 20)*7+8) mod 10);
                 if n mod 20=12 then writeln(f,((n div 20)*7+4) mod 10);
                 if n mod 20=13 then writeln(f,((n div 20)*7+7) mod 10);
                 if n mod 20=14 then writeln(f,((n div 20)*7+3) mod 10);
                 if n mod 20=15 then writeln(f,((n div 20)*7+8) mod 10);
                 if n mod 20=16 then writeln(f,((n div 20)*7+4) mod 10);
                 if n mod 20=17 then writeln(f,((n div 20)*7+1) mod 10);
                 if n mod 20=18 then writeln(f,((n div 20)*7+5) mod 10);
                 if n mod 20=19 then writeln(f,((n div 20)*7+4) mod 10);
                 end;
close(f);
close(g);
end.