Mai intai trebuie sa te autentifici.
Cod sursa(job #30902)
Utilizator | 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.