Реализовать функцию Delete (s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. Не использовать стандартную процедуру Delete.

Question

Информатика

Викентия

2 августа, 11:28

Реализовать функцию Delete (s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. Не использовать стандартную процедуру Delete.

+1

Ответы (1)

Знаете ответ на вопрос?

Светозар · Answer 1

Function Delete (s:string; i:integer) : string;

begin

Delete:=Copy (s, 1, i-1)

end;

begin

Writeln (Delete ('Тестовая строка',9))

end.

Результат:

Тестовая