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

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

anyasaveleva2    1   16.02.2020 20:54    6