Question

20 БАЛЛОВ!!! Что выведет код? Что будет напечатано в результате работы фрагмента кода? s:='ababaabcd'; while pos('ab',s) > 0 do begin x := pos('ab', s); delete(s, x, 2); end; writeln(length(s));

Answer 1

Ответ:

0

Объяснение:

т.к если s не равен 0 или меньше цикл не закончится.

Answer 2

Код удалит все вхождения подстроки "ab" из строки 'ababaabcd'. Затем он выведет на экран длину оставшейся строки.

Результат работы фрагмента кода будет 5.