Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
мэри114
01.01.2021 06:40 •
Информатика
Реализовать функцию delete(s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. не использовать стандартную процедуру delete.
Показать ответ
Ответ:
slipnot174
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.
Результат:
Тестовая
0,0
(0 оценок)
Популярные вопросы: Информатика
kainkem
10.06.2022 18:06
Составьте блок-схему алгоритма и алгоритм на алгоритмическом языке «Проезд регулируемого перекрестка». Какие алгоритмические конструкции использует эта блок схема?...
serega20467
25.12.2021 00:56
решить задание на фото ...
shuoksana2014
01.02.2022 11:40
Определить наименьшее значение заработной платы работника с номером 4...
givemepizza
16.10.2020 08:17
Можно решение побыстрее и полностью...
Макароныпофлотски
10.09.2022 19:03
Найти значение f, принимающей значения целого типа:f:= 2·x,если f −2 или x 2,То x=−3·xв противном случае вывести значение f....
vk20001
08.07.2021 01:03
Решите систему уравнений Y=x^2+x+41,при 0 х 4 Y=lx^3-2xl в других случаях...
Wjdjsjsksji
02.02.2020 05:27
Как называется прямоугольная часть электронной таблицы?...
SiRuES
11.10.2021 20:57
Чему будет равно значение ячейки В4, в которую записали формулу=СУММ(А1:B2;C3) ?...
Гуманитарий777
31.08.2022 08:09
1. Определите значение переменной Y после выполнения следующего фрагмента программы: x:=30; case 3+x div 8 of 1, 2, 3 : y:=10; 4 . . 7: y:=20; 8 . . 30: y:=30; else y:=100;...
chuko
30.01.2022 08:59
НАПИСАТЬ КОНСПЕКТ ПО ИНФОРМАТИКЕ ТЕМА ОПТИЧЕСКОЕ РАСПОЗНАВАНИЕ ДОКУМЕНТОВ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
Delete:=Copy(s,1,i-1)
end;
begin
Writeln(Delete('Тестовая строка',9))
end.
Результат:
Тестовая