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

str/1.py

@@ -0,0 +1,15 @@
+def clean(s, ss):
+    g = ''
+    for ch in s:
+        if (ss.find(ch)!=-1):
+            g += ch
+    gg = ''
+    for ch in ss:
+        if (s.find(ch)!=-1):
+            gg+=ch
+    g = g.replace(' ','')
+    gg = gg.replace(' ','')
+    return g, gg
+s1, s2 = clean(input(), input())
+print(s1)
+print(s2)

str/Program2.pas

@@ -0,0 +1,8 @@
+var
+  a: int64;
+  s: string;
+
+begin
+  ReadLn(s);
+  write(s[3], ' ', s[s.Length], ' ', s[s.Length], ' ');
+end.

str/Program3.pas

@@ -0,0 +1,8 @@
+var
+  a: int64;
+  s: string;
+
+begin
+  ReadLn(s);
+  if (s[1] = s[s.Length]) then write('äà') else write('íåò');
+end.

str/Program4.pas

@@ -0,0 +1,8 @@
+var
+  a: int64;
+  s: string;
+
+begin
+  ReadLn(s);
+  write(s[3], s[s.Length]);
+end.

str/Program5.pas

@@ -0,0 +1,15 @@
+var
+  a, m: int64;
+  s: string;
+  f: char;
+
+begin
+  ReadLn(s);
+  Readln(f);
+  m := 0;
+  for a := 1 to s.Length do 
+  begin
+    if (s[a] = f) then m := m + 1;
+  end;
+  write(m);
+end.

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]) = 'àõ') then 
+    begin
+      s[a - 1] := 'ó';
+      s[a] := 'õ';
+    end;
+  end;
+  write(s);
+end.