tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Реализовать функцию delete(s,
Реализовать функцию delete(s, i), возвращающую строку, полученную удалением из строки s всех символов, начиная с i-го. не использовать стандартную процедуру delete.
Olga2907
3 25.08.2019 09:00
1
Ответы
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.
Результат:
Тестовая
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
шоколадказнаний
10.09.2020 20:27
Запишите числа в кратком виде: 1⋅83+3⋅82+5⋅81+4⋅80 3⋅41+3⋅4-1 1⋅24+1⋅22+1⋅21+1⋅2-2...
EM20011
09.09.2020 21:03
Написать сообщение о периферийных устройствах устройства вывода...
keramix
10.09.2020 20:50
почему древнейшие люди использовали пальцы,нити ,камни,деревянные палочки я вам...
кира671
10.09.2020 19:56
Укажите , какие из высказываний истинны , а какая лож 3 задание...
cucumber03
10.09.2020 19:18
1. Компьютер сататын дүкенде сен кеңесші болып жұмыс істеп жүрсің.Тұтынушыға қандай процессорлы компьютерлі сатып алулы ұсынар едің(1.3-кесте...
Lera123yf
10.09.2020 19:16
16 символдық алфавитте 512 символдық хабар қанша килобайтты құрайды?...
David13211
10.09.2020 19:51
Что можно делать только разрешением учителя ? Информатикааа...
mixer239
10.09.2020 19:17
Даны 3 числа x, y, z. Если числа даны по возрастанию, то удвоить каждое из них, иначе извлечь модуль. Написать программу в паскале и блок - схему...
mishaklibashev
10.09.2020 19:17
Жасөспірімдердің интернетке әуес болуының себебі неде? ...
100817ЛИСИЧКА240817
10.09.2020 19:46
Var a,b,c:real; begin writeln( введите a,b,c ); readln(a,b,c); if (a 0) and (b 0) and (c 0) then begin if (a=c) and (b=c) and (a=b) then writeln( равносторонний );...
Популярные вопросы
Что объединяет слова каждого ряда 1)зайчик, листик , ключик, мосттк,...
2
Найди слова, которые одинаково пишутся и произзносятся, но имеют...
1
Укажи что мы называем знаками письма. 1.звуки 2.буквы 3.книги 4.слова...
3
Скорость катера по течению равна 19 (целых) 1/5 км/ч, а скорость...
2
Впрямоугольном треугольнике авс угол с=90 градусов, ас=6см,ав=9см,...
2
Закончи предложения, выбрав правильный ответ: 1. чем глубже в океан...
1
По медному проводу сечением s течёт ток i.затем сила тока уменьшилась.определить...
3
Составьте предложения, используя глаголы в past simple и past perfect...
3
Как измениться период колебаний нитяного маятника,если массу груза...
1
Скласти правильно реченяя з поданих слів : 1)/outdoor /fun/ in/...
2
begin
Delete:=Copy(s,1,i-1)
end;
begin
Writeln(Delete('Тестовая строка',9))
end.
Результат:
Тестовая