Привет! Давай разберемся с задачей.
Нужно выполнить последовательность команд и записать результат. Давай пройдемся по каждой из них:
s := 'денег знаний';sтеперь равно'денег знаний'.
n := length(s);nтеперь равно длине строкиs, то есть13.
r := t + s;rбудет равноt + s. Так какtпока не задано, ждём его значения.
k := pos('у', s);kравно позиции первой буквы'у'в строкеs. Вsэтой буквы нет, так чтоkравно0.
s := copy(s, 3, 10);sтеперь'нег знаний'(начиная с 3-го символа длиной 10 символов).
t := 'программирование';tтеперь'программирование'.
delete(s, 7, 5);sтеперь'нег зн'(удаляем 5 символов начиная с 7-го).
r := s + t;rтеперь'нег знпрограммирование'.
s := 'перемена';sравно'перемена'.
insert('тру', s, 2);sтеперь'птруеремена'.
s := copy(s, 2, 5) + s;sравно'труептруеремена'.
m := t[2];mтеперь равно второму символуt, то есть'р'.
t = '123';tравно'123'.
write(m, t[2] + m);- Записываем
'рр2'(второй символ от'123'плюс'р').
- Записываем
k := pos('@', r);kравно0, так как@нет вr.
insert('нет', s, k);- Вставка не происходит из-за
k = 0.
- Вставка не происходит из-за
s := s || t;sстановится'труептруеремена123'.
m := m + n;mвычисляется как символ'р'(было) плюс число13(несколько неуместно, но возможно в Pascal).
n := p mod k;nзависит от значенияp, но еслиk = 0, то деление по модулю невозможно.
p := max(m, n, k);- Максимум из
m,n,kзависит от их конечных значений.
- Максимум из
Вот подробное объяснение. Если у тебя есть еще вопросы, спрашивай!
