1095.c

平时acm训练时ac的源代码

program pp;
const
use:array[1..7] of string=
('1324','1234','2341','1243','1342','2134','4123');
var
max,n,i,j:longint;
sum,x:real;
st:string;
ch:char;
f1,f2,f3,f4:boolean;
s:array[1..10000] of string[20];
function f(max:integer):integer;
var
j:integer;
a:array[1..30] of integer;
begin
for j:=1 to length(s[i]) do a[j]:=ord(s[i,j])-ord('0');
for j:=1 to 4 do a[length(s[i])+j]:=0;
a[1]:=a[1] mod 7;
for j:=2 to length(s[i])+4 do a[j]:=(a[j-1]*10+a[j]) mod 7;
f:=a[j];
end;
begin
readln(n);
for i:=1 to n do
 begin
  readln(st);
  f1:=false;f2:=false;f3:=false;f4:=false;
  for j:=1 to length(st) do
  case st[j] of
  '1':f1:=true;
  '2':f2:=true;
  '3':f3:=true;
  '4':f4:=true;
  end;
 if f1 and f2 and f3 and f4=false then s[i]:='0'
else
 begin
  for ch:='1' to '4' do begin j:=pos(ch,st); delete(st,j,1); end;
  sum:=0;max:=0;
  for j:=1 to length(st) do
   if st[j]<>'0' then
   begin
   s[i]:=s[i]+st[j];
   sum:=sum*10+ord(st[j])-ord('0');
   end
   else max:=max+1;
   if sum=0 then s[i]:=use[7];
  for j:=1 to max do s[i]:=s[i]+'0';
  j:=f(max);
  if sum<>0 then s[i]:=s[i]+use[7-j];
 end;
 end;
for i:=1 to n do writeln(s[i]);
end.