1.Что выведет на экран эта программа? var s: string;
s := 'кибернетика';
write( s[length(s)-1] );
2.Что выведет на экран эта программа?
var s, q: string;
s := 'планшет';
q := copy(s, 7, length(s));
write( q );

1. В первой программе переменная s объявлена как строка и инициализирована значением 'кибернетика'. Затем, с помощью функции length(s) получается длина строки s, то есть 11. Вычитая из нее 1, получаем значение 10. Далее, с помощью оператора [] обращаемся к символу строки s с индексом 10 (индексация начинается с 1). Так как индекс последнего символа равен 11, то на экран будет выведен символ 'а'.

2. Во второй программе переменные s и q объявлены как строки. Переменная s инициализирована значением 'планшет'. Затем, с помощью функции copy(s, 7, length(s)) в переменную q копируется подстрока строки s, начиная с 7 символа и до конца строки s. Так как в строке s всего 7 символов, то получится полная копия строки s. На экран будет выведено значение переменной q, то есть 'планшет'.