Cod sursa(job #786848)

Utilizator andreator11ilies andreea andreator11 Data 12 septembrie 2012 11:02:07
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 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:=(7*((s mod 100)div 10)) 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.