Дамп всех задач

2017-05-22 13:29:43 +03:00
parent b970626fef
commit 93746b05d7
173 changed files with 2505 additions and 0 deletions
--- a/str/Program6.pas
+++ b/str/Program6.pas
@@ -0,0 +1,17 @@
+var
+  a, m: int64;
+  s: string;
+
+begin
+  ReadLn(s);
+  m := 0;
+  for a := 2 to s.Length do 
+  begin
+    if (string(s[a - 1] + s[a]) = '<27><>') then 
+    begin
+      s[a - 1] := '<27>';
+      s[a] := '<27>';
+    end;
+  end;
+  write(s);
+end.