удалить из заданной строки, заданное количество символов, с заданной позиции?

1

Ответы и объяснения

2014-02-28T17:23:50+04:00
В Паскале стандартная процедура delete(S,l,k)

удаляет в строке S с l-ой позиции k символов
Пример программы, которая удаляет из строки символом с заданным номером.
var S:string[100];
k,n:integer;
begin
write('S...');
readln(S);
n:=length(S);
writeln('S=',S,' n=', n);
writeln('k=?');
readln(k);
delete(S,k,1);
n:=length(S);
writeln(' S=',S, ' n=',n);
end.