Ответы
Ответ дал:
0
// 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(м)
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
Тестовое решение
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
Ответ дал:
0
Извините, у меня версия 2.2 сборка 765
Ответ дал:
0
А где об этом написано? Когда решение дали, уже поздно писать "А мне надо по-другому" - для всяких указаний есть условие задание. Написано PascalABC - и только...
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад