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