PascalABC.NET 3.6.2
begin
var a := ReadString().ToCharArray;
a.Transform(p -> p = '0' ? '1' : '0');
a.Println;
end.
Объяснение:
