Cod sursa(job #979804)

Utilizator crysstyanIacob Paul Cristian crysstyan Data 2 august 2013 20:09:05
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.93 kb
program sadfa;
var f,g:text;
        s:string;
        c:char;
        i,n,l,val,r,rez:integer;
        begin
        assign(f,'test.in');
        reset(f);
        assign(g,'cifra.out');
        rewrite(g);
        readln(f,n);
        for i:=1 to n do
        begin
        readln(f,s);
        l:=length(s);
        c:=s[l];
        val:=ord(c)-48;
        if val=1 then
        writeln(g,'1')
        else
        if val=2 then
        writeln(g,'5')
        else
        if val=3 then
        writeln(g,'2')
        else
        if val=4 then
        writeln(g,'8')
        else
        if val=5 then
        writeln(g,'3')
        else
        if val=6 then
        writeln(g,'9')
        else
        if val=7 then
        writeln(g,'2')
        else
        if val=8 then
        writeln(g,'8')
        else
        writeln(g,'7');
        end;
        close(f);
        close(g);




        end.