Воплотить функцию Delete(s, i), отдающую строчку, полученную удалением из строчки

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

Задать свой вопрос
1 ответ
Function Delete(s:string; i:integer):string;
begin
  Delete:=Copy(s,1,i-1)
end;

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

Итог:
Тестовая
Вадик
написано же не использовать delete
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт