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 или меньше цикл не закончится.