|
|
вернуться в форумWhy Compilation Error? Послано S&W 17 ноя 2002 14:35 subj
var alf:set of char; s,w:string;i,j:integer;
begin
alf:=['A'..'Z','a'..'z'];
repeat
readln(s);
for i:=1 to length(s) do begin
if s[i] in alf then begin
repeat
w:=w+s[i]; inc(i);
until not(s[i] in alf) or (i=length(s));
for j:=length(w) downto 1 do write(w[j]);w:='';
end; write(s[i]);
end;
writeln;
until eof
end.
It WOrks!!!!!!!!!!!!!!! I chack you it but WA. if you will check my program 1222. I will give you my solution. my E-mail tabo2002@rambler.ru > subj
> var alf:set of char; s,w:string;i,j:integer;
> begin
> alf:=['A'..'Z','a'..'z'];
> repeat
> readln(s);
> for i:=1 to length(s) do begin
> if s[i] in alf then begin
> repeat
> w:=w+s[i]; inc(i);
> until not(s[i] in alf) or (i=length(s));
> for j:=length(w) downto 1 do write(w[j]);w:='';
> end; write(s[i]);
> end;
> writeln;
> until eof
> end.
> It WOrks!!!!!!!!!!!!!!! Re: I chack you it but WA. if you will check my program 1222. I will give you my solution. my E-mail tabo2002@rambler.ru Послано S&W 17 ноя 2002 20:37 How? it still compilation error, send your program on
nameless51@mail.ru |
|
|
