Cod sursa(job #6095)

Utilizator vanila0406Ionescu Victor vanila0406 Data 17 ianuarie 2007 14:32:01
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.78 kb
program cifra;
var f,g:text;
        n,t:longint;


procedure iofile;
var uc,i:longint;
begin
        assign(f,'cifra.in');
        reset(f);
        assign(g,'cifra.out');
        rewrite(g);
        readln(f,t);
        for i:=1 to t do
                begin
        readln(f,n);
        uc:=((n div 10)*7) mod 10;
        n:=n mod 10;
        case n of
                0:uc:=uc+0;
                1:uc:=uc+1;
                2:uc:=uc+5;
                3:uc:=uc+2;
                4:uc:=uc+8;
                5:uc:=uc+3;
                6:uc:=uc+9;
                7:uc:=uc+2;
                8:uc:=uc+8;
                9:uc:=uc+7;
        end;
        uc:=uc mod 10;
        writeln(g,uc);
        end;
        close(g);
end;

begin
        iofile;
end.