Mai intai trebuie sa te autentifici.

Cod sursa(job #30902)

Utilizator GringoHorga Adrian Gringo Data 15 martie 2007 11:44:47
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.86 kb
var f,g:text;
    i,t,er,x,v:integer;
    n:string;
begin
assign(f,'cifra.in');reset(f);
assign(g,'cifra.out');rewrite(g);
readln(f,t);
for i:=1 to t do begin
    x:=0;
    v:=0;
    readln(f,n);
    val(n[length(n)],x,er);
    if x=0 then v:=0
    else
    if x=1 then v:=1
    else
    if x=2 then v:=5
    else
    if x=3 then v:=2
    else
    if x=4 then v:=8
    else
    if x=5 then v:=3
    else
    if x=6 then v:=9
    else
    if x=7 then v:=2
    else
    if x=8 then v:=8
    else
    if x=9 then v:=7;
    if length(n)>=2 then begin
       val(n[length(n)-1]+n[length(n)],x,er);
       if x mod 4=0 then v:=(v+1)mod 10
       else
       if x mod 4=1 then v:=(v+7)mod 10
       else
       if x mod 4=2 then v:=(v+9)mod 10
       else
       v:=(v+3)mod 10;
       end;
    writeln(g,v);
    end;
close(f);
close(g);
end.