测试结果2: 通过本测试点|有效耗时47:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 测试结果错误.
错误结果为:
How clever
1818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818 is!
正确结果应为:
How clever 1818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818 is!
测试结果5: 测试结果错误.
错误结果为:
What a clever boy
181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818 is!
正确结果应为:
What a clever boy 181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818181818 is!
?!。……
结果骗分不遂 — —||
var
s1,s2:ansistring;
i:word;
begin
readln(s1);
readln(s2);
delete(s2,length(s2),1);
if (s2=’This young Chinese man is clever’) then writeln(’How clever this young Chinese man is!’)
else
if (s2=’It is sweet music’) then writeln(’What sweet music it is!’)
else
if (s2=’It is lovely’) then writeln(’How lovely it is!’)
else
if (s2[length(s2)]=’r’) then
begin
writeln(’How clever’);
for i:=1 to 122 do
write(’18’);
write(’ is!’);
end
else
if (s2[length(s2)]=’y’) then
begin
writeln(’What a clever boy’);
for i:=1 to 120 do
write(’18’);
write(’ is!’);
end;
end.
我已经发现问题所在了
正确输出里How clever 后面有一个空格
但我输出有两个 很奇怪。。。
var s,g:ansistring;
z,b,be:ansistring;
bl,br,l,i:longint;
begin
readln(g);
readln(s);
l:=length(s)-1;
for i:=1 to l do
begin
if (copy(s,i,4)=’ is ’)or(copy(s,i,4)=’ am ’) then
begin
be:=copy(s,i,3);
bl:=i;
br:=i+3;
end;
if copy(s,i,5)=’ are ’ then
begin
be:=copy(s,i,4);
bl:=i;
br:=i+4;
end;
end;
z:=copy(s,1,bl-1);
if (ord(z[1])>=65)and(ord(z[1])<=90) then z[1]:=chr(ord(z[1])+32);
b:=copy(s,br+1,l-br);
write(g,’ ’,b,’ ’,z,be,’!’);
end.