Задание 1. Перепишите последовательность команд, если 8, t, p - являются строковыми значениями, а r - символьным

Задание 1. Перепишите последовательность команд, если 8, t, p - являются строковыми значениями, а r - символьным значением. Кроме того, т, п, k - являются целочисленными переменными. Последовательность команд:

$$\begin{array}{rl}s& :="деньзнаний";\\ n& :=\text{{length}}(s);\\ k& :=\text{{pos}}(",",s);\\ k& :=t:=\text{{copy}}(s,1,k-1);\\ t& :=s:="программирование";\\ \text{{delete}}(s,1,7);\\ \text{{delete}}(s,4,6);\\ s& :="перемена";\\ t& :="к";\\ \text{{insert}}(t,s,8);\\ s& :="перемена";\\ t& :=\text{{upcase}}(s[1])+\text{{copy}}(s,6,3));\\ t& :=s:="Скорозима";\\ k& :=\text{{pos}}("",s);\\ n& :=\text{{length}}(s);\\ p& :=\text{{copy}}(s,k+1,n-k);\\ \text{{delete}}(s,1,k);\\ n& :=211;\\ r& :=\text{{chrAnsi}}(n);\\ r& :="m";\\ n& :=\text{{ordAnsi}}(r);\end{array}$$

Решение:

1. Инициализируем переменную $s$ значением "день знаний".
$$s:="деньзнаний";$$

2. Присваиваем переменной $n$ длину строки $s$.
$$n:=\text{{length}}(s);$$

3. Инициализируем переменную $k$ позицией символа ",", найденного в строке $s$.
$$k:=\text{{pos}}(",",s);$$

4. Присваиваем переменным $k$ и $t$ значение, полученное при копировании подстроки строки $s$ с первого символа до символа, находящегося на позиции $k-1$.
$$k:=t:=\text{{copy}}(s,1,k-1);$$

5. Инициализируем переменную $t$ значением "программирование".
$$t:=s:="программирование";$$

6. Удаляем из строки $s$ 7 символов, начиная с первого символа.
$$\text{{delete}}(s,1,7);$$

7. Удаляем из строки $s$ 6 символов, начиная с четвёртого символа.
$$\text{{delete}}(s,4,6);$$

8. Инициализируем переменную $s$ значением "перемена".
$$s:="перемена";$$

9. Инициализируем переменную $t$ значением "к".
$$t:="к";$$

10. Вставляем подстроку $t$ в строку $s$ на позицию, следующую сразу после 8-го символа.
$$\text{{insert}}(t,s,8);$$

11. Инициализируем переменную $s$ значением "перемена".
$$s:="перемена";$$

12. Присваиваем переменной $t$ значение, полученное путём конкатенации заглавной буквы, находящейся на первой позиции строки $s$, и подстроки $s$ с 6-го символа длиной 3 символа.
$$t:=\text{{upcase}}(s[1])+\text{{copy}}(s,6,3));$$

13. Инициализируем переменную $t$ значением "Скоро зима".
$$t:=s:="Скорозима";$$

14. Инициализируем переменную $k$ позицией пустой строки, найденной в строке $s$.
$$k:=\text{{pos}}("",s);$$

15. Присваиваем переменной $n$ длину строки $s$.
$$n:=\text{{length}}(s);$$

16. Присваиваем переменной $p$ значение, полученное при копировании подстроки строки $s$ начиная с символа, следующего сразу после найденного символа, и до конца строки.
$$p:=\text{{copy}}(s,k+1,n-k);$$

17. Удаляем из строки $s$ все символы от начала строки до найденного символа включительно.
$$\text{{delete}}(s,1,k);$$

18. Присваиваем переменной $n$ значение 211.
$$n:=211;$$

19. Инициализируем переменную $r$ символом, соответствующим числу $n$ в кодировке.
$$r:=\text{{chrAnsi}}(n);$$

20. Присваиваем переменной $r$ значение "m".
$$r:="m";$$

21. Присваиваем переменной $n$ числовое значение, соответствующее символу $r$ в кодировке.
$$n:=\text{{ordAnsi}}(r);$$