代码
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