Cod sursa(job #74788)

Utilizator al3csutzuSirbu Alexandru al3csutzu Data 28 iulie 2007 11:51:51
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.8 kb
program cifre;
var f,g:text;
teste,i,n,t:longint;
sol:longint;
begin
  assign(f,'cifra.in'); assign(g,'cifra.out');
  reset(f); rewrite(g);
  read(f,teste);
  for t:=1 to teste do
  begin
    read(f,n);
    sol:=0;
    for i:=1 to n do
    begin
      case (i mod 10) of
      1: sol:=(sol+1) mod 10;
      5: sol:=(sol+5) mod 10;
      6: sol:=(sol+6) mod 10;
      4: sol:=(sol+6) mod 10;
      9: sol:=(sol+9) mod 10;
      2: if i mod 4=0 then sol:=(sol+6) mod 10 else sol:=(sol+4) mod 10;
      3: if i mod 4=1 then sol:=(sol+3) mod 10 else sol:=(sol+7) mod 10;
      7: if i mod 4=1 then sol:=(sol+7) mod 10 else sol:=(sol+3) mod 10;
      8: if i mod 4=0 then sol:=(sol+6) mod 10 else sol:=(sol+4) mod 10;
      end;
    end;
    writeln(g,sol);
  end;

  close(f); close(g);
end.