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

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

\[
\begin{align*}
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{align*}
\]

Решение:

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);\]