Проверочная работа по теме "Обработка строк на Паскаль"

Определите значение переменной k, после выполнения фрагмента программы:

n: = 'Самый лучший день';

k: = length (n);

write (k);

Определите результат работы следующего фрагмента программы:

n: = 'Обработка строк';

delete (n, 4, 10);

write (n);

Определите результат работы следующего фрагмента программы:

n: = 'Обработка строк в Паскаль';

insert ('оч', n, 8);

write (n);

Определите результат работы следующего фрагмента программы:

n: = 'В лесу родилась ёлочка, в лесу она росла.';

k: = copy (n, 19, 7);

write (k);

Определите результат работы следующего фрагмента программы:

n: = 'Ехали медведи на велосипеде';

k: = copy (n, 4, 1);

delete (n, 1, 18);

insert (k, n, 0);

delete (n, 3, 2);

write (n);

Определите значение переменной k, если

n: = 'Все дороги ведут в Москву';

for i: = 1 to length (n) do  if n[i] = 'в' then k:=k+1;

write (k);

Определите результат работы следующего фрагмента программы:

n: = 'Обработка строк';

for i: = 1 to length (n) do if n[i] = 'р' then n[i]: = ' ';

write (n);

Определите начальные значения переменных a и b, если поле выполнения фрагмента программы программа вывела на экран “Привет! Как дела?” (без кавычек)?

c: = b + a;

insert (' Как ', c, 8);

write (c);

Что будет выведено на экран после выполнения программы?

var s: string; i: integer;

begin

s:='М';

for i: = 1 to 2 do s: = s + 'а';

s:=s+s;

write (s);

end.