pascal 完美克隆

题目描述
试判断给出的2个整数是否完全相等，相等则输出"Yes"和整数的位数；不相等则输出"No"和从右边数起的第一个不相等的数字的位置。
输入
两行：每行1个整数（每个整数最多不超过200位）。
输出
两行。 第一行："Yes"或"No"； 第二行：整数的位数或从低位（右边）数起的第一个不相等的数字的位置。
样例输入
样例1：
321
321
样例2：
1789
2149
样例输出
样例1：
Yes
3
样例2：
No
2

var s1,s2:string;
n1,n2,i:integer;
begin
readln(s1);
readln(s2);
n1:=length(s1);
n2:=length(s2);
i:=0;
while (i if (i>n1)and(i>n2) then begin writeln('Yes'); writeln(i) end
else begin writeln('No'); writeln(i+1) end;
end.

循环多了些 1！+（1！+3！）+（1！+3！+5！）+（1！……7！） =1！*4+3！*3+5！*2+7！*1 for xh2:=1 to n do for xh1:=1 to xh2 do begin b:=jc(xh1*2-1); s:=s+b; end; 可改为 for xh1:=4 downto 1 do s:=s+jc((n-xh1)*2-1)*xh1

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息