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

Olga2907 Olga2907    3   25.08.2019 09:00    1

Ответы
valia01022004 valia01022004  05.10.2020 18:26
Function Delete(s:string; i:integer):string;
begin
  Delete:=Copy(s,1,i-1)
end;

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

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