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

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

Question

Информатика: Что выведет код? Что будет напечатано в результате работы фрагмента кода? s:= ababaabcd ; while pos( ab ,s) 0 do begin x := pos( ab , s); delete(s, x, 2); end; writeln(length(s));

vladus20012 · Answer

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

Что выведет код? Что будет напечатано в результате работы фрагмента кода? 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));