Pascal ABC! Решите! Заменить группы подряд идущих нулей на один нуль.

Pascal ABC! Решите! Заменить группы подряд идущих нулей на один нуль.
Гость
Ответ(ы) на вопрос:
Гость
// 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(м)
Не нашли ответ?
Ответить на вопрос
Похожие вопросы