Question

1)Что получиться в результате выполнения фрагмента программы?
M:=‘подпрограмма’;
Writeln(copy(M,7,5));
P:=length(M)+5-length(copy(M,4,4));
2)Что получиться в результате выполнения фрагмента программы?
K:=‘период’;
Delete(K,1,3);
Writeln(copy(K,3,1)+K);
Writeln(length(K));
3)Чему равно значение переменной P?
S:=‘У Егорки всегда отговорки';
P:=pos(‘о’,S);
4)Что получиться в результате выполнения фрагмента?
S:=‘У Егорки всегда отговорки';
Delete(S,9,7);
Insert(‘есть’,S,9);
5) Даны строковые константы A=‘берег’, B=‘гном’, C=‘пила’.
Какие значения будет иметь A в результате выполнения следующих команд:
1)A[5]:=B[1];
2)Delete(A,2,2);Insert(copy(C,2,2),A,2);
Delete(A,3,3);Insert(copy(B,2,3),A,3)

Решите пожалуйста, эта работа повлияет на меня в поступлении
Просьба дать ответы до 16.04
Дайте полный ответ в виде программы даю 20 б

Answer 1

Ответ:

Результат выполнения фрагмента программы:

M := 'подпрограмма';

Writeln(copy(M,7,5));

P := length(M) + 5 - length(copy(M,4,4));

Вывод:

"ограм" (результат функции copy(M,7,5) - копирование подстроки из строки M, начиная с 7-го символа и длиной 5 символов)

P будет равно 10 (результат вычисления выражения length(M) + 5 - length(copy(M,4,4)), где length(M) = 12, copy(M,4,4) = 'прог', итоговое значение P = 12 + 5 - 4 = 13)

Результат выполнения фрагмента программы:

K := 'период';

Delete(K,1,3);

Writeln(copy(K,3,1)+K);

Writeln(length(K));

Вывод:

"риодпериод" (результат функции copy(K,3,1) - копирование подстроки из строки K, начиная с 3-го символа и длиной 1 символа, и сложение со строкой K)

8 (результат функции length(K) - длина строки K после удаления подстроки)

Результат выполнения фрагмента программы:

S := 'У Егорки всегда отговорки';

P := pos('о', S);

Вывод:

2 (результат функции pos('о', S) - поиск первого вхождения подстроки 'о' в строке S, в данном случае 'о' встречается на второй позиции)

Результат выполнения фрагмента программы:

S := 'У Егорки всегда отговорки';

Delete(S,9,7);

Insert('есть', S, 9);

Вывод:

"У Егорки есть отговорки" (результат удаления подстроки из строки S, начиная с 9-го символа и длиной 7 символов, и вставки подстроки 'есть' на 9-ю позицию)

Даны строковые константы A = 'берег', B = 'гном', C = 'пила'.

А) A[5] := B[1];

Вывод:

"бергг" (значение строки A после замены 5-го символа на первый символ строки B)

Б) Delete(A,2,2); Insert(copy(C,2,2),A,2);

Вывод:

"браерег" (значение строки A после удаления подстроки из строки A, начиная со 2-го символа и длиной 2 символа, и вставки подстроки 'ра' на 2-ю позицию, скопированной из строки C, начиная со 2-го символа и длиной 2 символа)

В) Delete(A,3,3); Insert(copy(B,2,3),A,3)

Вывод:

"бергнерег" (