Ошибка времени выполнения: Индекс находился вне границ массива
Как исправить?
Program A2;
Var s:string;
i:integer;
Begin
Readln(s);
For i:= 1 to length(s) do
If s[i]=',' then delete (s, i, 1);
Writeln(s);
End.
Как исправить?
Program A2;
Var s:string;
i:integer;
Begin
Readln(s);
For i:= 1 to length(s) do
If s[i]=',' then delete (s, i, 1);
Writeln(s);
End.
More Questions From This User See All
Answers & Comments
var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' then delete (s, i, 1);
writeln(s);
end.