Cod sursa(job #1454080)

Utilizator mihaitamoglanmihai moglan mihaitamoglan Data 25 iunie 2015 13:38:29
Problema Cifra Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.68 kb
var m,n,i:integer;
    f,g:text;
    c,c1:char;
    s:string;
begin
assign(f,'cifra.in');
assign(g,'cifra.out');
reset(f);
rewrite(g);
readln(f,n);
for i:=1 to n do
 begin
  m:=0;
  c1:=#0;
  readln(f,s);
  if length(s)>1 then begin
                        c1:=s[length(s)-1];
                        c:=s[length(s)];
                        end
  else c:=s[length(s)];
  case c1 of
                           '1':m:=m+7;
                           '2':m:=m+4;
                           '3':m:=m+1;
                           '4':m:=m+8;
                           '5':m:=m+5;
                           '6':m:=m+2;
                           '7':m:=m+9;
                           '8':m:=m+6;
                           '9':m:=m+3;
                           end;
  if ord(c1)mod 2=0 then case c of
                           '1':m:=m+1;
                           '2':m:=m+5;
                           '3':m:=m+2;
                           '4':m:=m+8;
                           '5':m:=m+3;
                           '6':m:=m+9;
                           '7':m:=m+2;
                           '8':m:=m+8;
                           '9':m:=m+7;
                           end
  else                   case c of
                           '1':m:=m+1;
                           '2':m:=m+7;
                           '3':m:=m+0;
                           '4':m:=m+6;
                           '5':m:=m+1;
                           '6':m:=m+7;
                           '7':m:=m+4;
                           '8':m:=m+8;
                           '9':m:=m+7;
                           end;
   writeln(g, m mod 10);
  end;
 close(f);
 close(g);
end.