Online JudgeProblem SetAuthorsOnline ContestsUser
Web Board
Home Page
F.A.Qs
Statistical Charts
Problems
Submit Problem
Online Status
Prob.ID:
Register
Update your info
Authors ranklist
Current Contest
Past Contests
Scheduled Contests
Award Contest
User ID:
Password:
  Register

为pascal题解做贡献

Posted by 740340735 at 2011-08-02 20:54:10 on Problem 1504
var t,a,b:longint;
function ud(x:longint):longint;
  var i,p,q,k:longint;
  begin
    i:=0;p:=x;q:=0;
    while p>0 do begin
      inc(i);
      k:=p;
      p:=p div 10;
      q:=q*10+k-p*10;
    end;
    exit(q);
  end;
begin
  readln(t);
  while t>0 do begin
    dec(t);
    readln(a,b);
    writeln(ud(ud(a)+ud(b)));
  end;
end.

Followed by:

Post your reply here:
User ID:
Password:
Title:

Content:

Home Page   Go Back  To top


All Rights Reserved 2003-2013 Ying Fuchen,Xu Pengcheng,Xie Di
Any problem, Please Contact Administrator