/ SB域 /

记录详情

Wrong Answer


  
# 状态 耗时 内存占用
#1 Wrong Answer 成绩取消 0ms 0 Bytes

代码

var t,n,i,cnt:longint;
    s1,s2:string;
begin
assign(input,'comp.in'); reset(input);
assign(output,'comp.out');rewrite(output);
 readln(n);
 for t:=1 to n do begin
  readln(s1);
  readln(s2);
  if length(s1)<>length(s2) then
  begin writeln('No'); continue; end;
  cnt:=0;
  for i:=1 to length(s1) do begin
   if s1[i]<>s2[i] then inc(cnt);
 end;
   if cnt>1 then begin writeln('No'); continue; end ELSE writeln('Yes');
 end;
 close(input);close(output);
end.

信息

递交者
类型
递交
题目
StrangeComparator奇怪的比较器
题目数据
下载
语言
Pascal
递交时间
2017-08-22 14:09:29
评测时间
2017-08-22 14:09:51
评测机
分数
0
总耗时
0ms
峰值内存
0 Bytes