program poj3980;
var s,s1,s2:string;
    c:char;
    i,code:integer;
    a1,a2,a3:longint;
begin
 readln(s);
 while s<>'' do
 begin
  i:=1;
  c:=s[i];
  while c<>' 'do
  begin
   inc(i);
   c:=s[i];
  end;
  s1:=copy(s,1,i-1);
  delete(s,1,i);
  s2:=s;
  val(s1,a1,code);
  val(s2,a2,code);
  a3:=a1 mod a2;
  writeln(a3);
  readln(s);
 end;
end.

• 楼上新手吧，这题这么水……（Pascal） (109) paddy 2011-03-08 21:00:04