PROGRAM
VAR
слово: STRING;
i, l: INTEGER;
перваяПоловина: STRING;
BEGIN
// Ввод слова
WRITE('Введите слово: ');
READLN(слово);
// Первое задание
// Найти первую половину
перваяПоловина := SUBSTR(слово, 1, LENGTH(слово) div 2);
WRITE('Первая половина слова: ', перваяПоловина);
// Второе задание
WRITE('Введите стартовый индекс (i): ');
READLN(i);
WRITE('Введите конечный индекс (l): ');
READLN(l);
// Извлечение подстроки
WRITE('Подстрока: ', SUBSTR(слово, i, l - i + 1));
END.
алг
нач
лит s
цел m, n
ввод s
ввод m
ввод n
вывод s[m:n]
кон
алг
нач
лит Строка
цел М, Н
ввод Строка
ввод М
ввод Н
вывод Строка[М:Н]
кон