Pascal abc! решите! заменить группы подряд идущих - вопрос №5565120 от veronicavasilyk 20.02.2021 19:16

Question

Информатика: Pascal abc! решите! заменить группы подряд идущих нулей на один нуль.

veronicavasilyk · Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.

Тестовое решение
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)