Паскаль: 16a - Символьные строки

1. Что выведет программа

  var s: string;
  write('Введите слово: ');
  readln( s );
  write( length(s) );

если ввести слово

  строй

2. Что выведет на экран эта программа:

  var s, q: string;
  s := 'инф';
  q := 'aaaaa';
  s := s + q;
  write( s );

3. Что выведет на экран эта программа?

  var s, s1, s2: string;
  s := 'ксе';
  s1 := 'во';
  s2 := s1 + s + 'ль';
  write( s2 + s1 );

4. Что выведет на экран эта программа?

  var s: string;
  s := 'информатика';
  write( s[2] );

5. Что выведет на экран эта программа?

  var s: string;
  s := 'кибернетика';
  write( s[length(s)-1] );

6. Что выведет на экран эта программа?

  var s: string;
  s := 'космонавтика';
  write( copy(s, 3, 3) );

7. Что выведет на экран эта программа?

  var s, q: string;
  s := 'галактика';
  q := copy(s, 1, 4);
  write( q );

8. Что выведет на экран эта программа?

  var s, q: string;
  s := 'планшет';
  q := copy(s, 7, length(s));
  write( q );

9. Что выведет на экран эта программа?

  var s, q: string;
  s := 'абвгдежзик';
  q := copy(s,1,5) + copy(s,9,10);
  write( q );

10. Что выведет на экран эта программа?

  var s, q: string;
  s := 'абвгдежзик';
  q := copy(s,1,4) + '...' + copy(s,8,10);
  write( q );

11. Что выведет на экран эта программа?

  var s, q: string;
  s := 'монитор';
  q := copy(s, 4, 1);
  write( q );