Dorith
5 год назад
Реализовать функцию Delete(s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. Не использовать стандартную процедуру Delete.
ОТВЕТЫ
Kelly Jack
Oct 24, 2020
function Delete(s:string; i:integer):string;
begin
Delete:=Copy(s,1,i-1)
end;
begin
Writeln(Delete('Тестовая строка',9))
end.
Тестовая
begin
Delete:=Copy(s,1,i-1)
end;
begin
Writeln(Delete('Тестовая строка',9))
end.
Тестовая
69
Смежные вопросы:
