Cod sursa(job #1564261)

Utilizator gra99Graur Gabriel gra99 Data 9 ianuarie 2016 16:28:16
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.58 kb
Program p1;
  var s:array[1..30000]of ansistring;
  x,x1,n,code,sum,sum1,sum2,t,i:integer;
  f,g:text;
 begin
 assign(f,'cifra.in');reset(f);
 assign(g,'cifra.out');rewrite(g);
 readln(f,t);
 for i:=1 to t do begin x:=0;x1:=0;
 readln(f,s[i]);
 val(s[i][length(s[i])],x,code);
 case x of
 1:sum1:=1;
 2:sum1:=5;
 3:sum1:=2;
 4:sum1:=8;
 5:sum1:=3;
 6:sum1:=9;
 7:sum1:=2;
 8:sum1:=8;
 9:sum1:=7;
 0:sum1:=0;
 end;
 if length(s[i])>1 then
          val(s[i][length(s[i])-1],x1,code);
 sum2:=7*x1;
 sum:=sum1+sum2;
 writeln(g,sum mod 10);
 end;
 close(g);
 end.