ЕГЭ задание 12 Паскаль
begin
var s := '8' * 68;
while ('222' in s) or ('888' in s) do
begin
if '222' in s then
s := s.Replace('222', '8', 1)
else
s := s.Replace('888', '2', 1);
end;
print(s);
end.
14-03-22 09-18-53