Cod sursa(job #1595135)

Utilizator laura.calimanLaura Caliman laura.caliman Data 9 februarie 2016 23:08:28
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.59 kb
var n,i,j,k:longint;
    s:string;
    a:array[1..10] of longint;
    
begin
  assign(input,'cifra.in');
  assign(output,'cifra.out');
  reset(input);
  rewrite(output);
  a[1]:=1;
  for i:=2 to 9 do begin
    k:=i;
    for j:=2 to i do k:=k*i;
    a[i]:=(a[i-1]+k) mod 10;
//    write(a[i],' ');
  end;
//  writeln;
  a[10]:=a[9];
  readln(n);
  for i:=1 to n do begin
    readln(s);
    k:=0;
    j:=length(s);
    if j>1 then begin
      k:=(a[10]*(ord(s[j-1])-48)) mod 10;
    end;
    if s[j]<>'0' then 
      k:=(k+a[ord(s[j])-48]) mod 10;
    writeln(k);
  end;
end.