Cod sursa(job #219635)

Utilizator lianaliana tucar liana Data 7 noiembrie 2008 20:33:11
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.94 kb
program cifra;
var f, g:text;
    x, t, i, z, s:longint;
    a:string;
  begin
    assign(f,'cifra.in'); reset(f);
    assign(g,'cifra.out'); rewrite(g);
    readln(f,t);
    for i:=1 to t do
      begin
        readln(f,a);
        x:=length(a);
        z:=ord(a[x])-48;
        s:=0;
        for x:=1 to z do
          begin
            if x=1 then
              s:=(s+1) mod 10;
            if x=2 then
              s:=(s+4) mod 10;
            if x=3 then
              s:=(s+7) mod 10;
            if x=4 then
              s:=(s+6) mod 10;
            if x=5 then
              s:=(s+5) mod 10;
            if x=6 then
              s:=(s+6) mod 10;
            if x=7 then
              s:=(s+9) mod 10;
            if x=8 then
              s:=(s+4) mod 10;
            if x=9 then
              s:=(s+1) mod 10;
          end;
        writeln(g,s);
      end;
    writeln(g);
    close(f);
    close(g);
  end.