qwerty665

30.05.2020 14:40 •  Информатика

Что выведет код?
Что будет напечатано в результате работы фрагмента кода?

s:='ababaabcd';
while pos('ab',s) > 0 do begin
x := pos('ab', s);
delete(s, x, 2);
end;
writeln(length(s));