Ошибка времени выполнения: индекс находился вне границ массива как исправить? 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.

annasoloveva02 annasoloveva02    2   30.09.2019 17:10    1

Ответы
NIKCHplay NIKCHplay  09.10.2020 05:54

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика