Question

s := '123456789'; Delete ( s, 1, 2 ); n := Pos ( '6', s ); writeln ( n ); как работает эта программа должно получится 4

Answer 1

s := '123456789'; - строковой переменной s присваивается значение

Delete ( s, 1, 2 ); - из строки s удаляется 2 символа, начиная с 1-го (значение s будет '3456789')

n := Pos ( '6', s ); - определяется номер позиции символа '6' в строке s. Этот номер равен 4

writeln ( n ); - на экран выводится значение n, т.е. 4

Answer 2

В паскале индексы строк начинаются от 1

Pos(substr, str) - функция, которая возвращает индекс первого вхождения подстроки substr в строку  

str или 0, если подстрока не найдена. Например pos('abc', '12') = 0, а  

pos('cat', 'qw cat123cat4') = 4 (q: 1-й символ w: 2-й символ пробел: 3-й символ

с: 4-й символ

Delete(str, index, count) удаляет из строки str начиная с элемента index count символов

Delete(s, 1, 2) = 3456789  

Pos('6', s) = Pos('6', '3456789') = 4

Answer 3

Данная программа написана на языке программирования Pascal и выполняет следующие действия:

1. `s := '123456789';` – в этой строке создается переменная `s` и присваивается значение "123456789".

2. `delete(s, 1, 2);` – эта строка удаляет из переменной `s` два символа начиная с позиции 1. Таким образом, после выполнения этой строки значение переменной `s` станет "3456789".

3. `n := pos('6', s);` – в этой строке определяется позиция первого вхождения символа '6' в строке `s` и результат присваивается переменной `n`. В данном случае функция `pos` вернет значение 4, так как символ '6' находится на позиции 4 в строке "3456789".

4. `writeln(n);` – данная строка выводит значение переменной `n` на экран. В данном случае, на экран будет выведено число 4.

Таким образом, программа выводит на экран число 4, которое является позицией первого вхождения символа '6' после удаления первых двух символов из строки "123456789".