Cod sursa(job #1595135)
| Utilizator | 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.
