Cod sursa(job #786840)

Utilizator andreator11ilies andreea andreator11 Data 12 septembrie 2012 10:51:05
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.67 kb
var f,g:text;
x:integer;
i,t,j:longint; s:int64;
begin
assign(f,'cifra.in'); reset(f);
assign(g,'cifra.out'); rewrite(g);
read(f,t);
for i:=1 to t do
begin
read(f,s);
x:=((s div 10)*7)mod 10;
if(s mod 10=1) then writeln(g,(x+1)mod 10);
if(s mod 10=0) then writeln(g,(x+0)mod 10);
if(s mod 10=2) then writeln(g,(x+5)mod 10);
if(s mod 10=3) then writeln(g,(x+2)mod 10);
if(s mod 10=4) then writeln(g,(x+8)mod 10);
if(s mod 10=5) then writeln(g,(x+3)mod 10);
if(s mod 10=6) then writeln(g,(x+9)mod 10);
if(s mod 10=7) then writeln(g,(x+2)mod 10);
if(s mod 10=8) then writeln(g,(x+8)mod 10);
if(s mod 10=9) then writeln(g,(x+7)mod 10);
end;
close(f);
close(g);
end.