737704_0_0_5446\Main.java:1: 需要 "class" 或 "interface"
var
^
737704_0_0_5446\Main.java:3: 需要 "class" 或 "interface"
s1,s2,s:string;
^
737704_0_0_5446\Main.java:4: 需要 "class" 或 "interface"
l1,l2,l,i,j:longint;
^
737704_0_0_5446\Main.java:5: 需要 "class" 或 "interface"
function min(x,y,z:string):string;
^
737704_0_0_5446\Main.java:6: 需要 "class" 或 "interface"
begin
^
737704_0_0_5446\Main.java:8: 需要 "class" 或 "interface"
if length(x)>length(y) then x:=y;
^
737704_0_0_5446\Main.java:9: 需要 "class" 或 "interface"
exit(x);
^
737704_0_0_5446\Main.java:10: 需要 "class" 或 "interface"
end;
^
737704_0_0_5446\Main.java:11: 需要 "class" 或 "interface"
begin
^
737704_0_0_5446\Main.java:15: 需要 "class" 或 "interface"
l:=length(s);
^
737704_0_0_5446\Main.java:16: 需要 "class" 或 "interface"
for i:=1 to l do if s[i]=' 'then break;
^
737704_0_0_5446\Main.java:17: 需要 "class" 或 "interface"
s1:=copy(s,1,i-1); s2:=copy(s,i+1,l-i);
^
737704_0_0_5446\Main.java:17: 需要 "class" 或 "interface"
s1:=copy(s,1,i-1); s2:=copy(s,i+1,l-i);
^
737704_0_0_5446\Main.java:18: 需要 "class" 或 "interface"
l1:=length(s1); l2:=length(s2);
^
737704_0_0_5446\Main.java:18: 需要 "class" 或 "interface"
l1:=length(s1); l2:=length(s2);
^
737704_0_0_5446\Main.java:19: 需要 "class" 或 "interface"
for i:=1 to l1 do
^
737704_0_0_5446\Main.java:21: 空字符字面值
f[i,j]:='';
^
737704_0_0_5446\Main.java:21: 未结束的字符字面值
f[i,j]:='';
^
737704_0_0_5446\Main.java:23: 需要 "class" 或 "interface"
for i:=1 to l2 do f[0,i]:=copy(s2,1,i);
^
737704_0_0_5446\Main.java:24: 需要 "class" 或 "interface"
for i:=1 to l1 do
^
737704_0_0_5446\Main.java:29: 需要 "class" 或 "interface"
writeln(f[l1,l2]);
^
737704_0_0_5446\Main.java:30: 需要 "class" 或 "interface"
end;
^
737704_0_0_5446\Main.java:31: 需要 "class" 或 "interface"
end
^
23 错误
|
