测试结果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.