1. дано предложение. подсчитать число пробелов стоящих на нечетных местах, и заменить такие пробелы на символ «*». 2. дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн». язык pascal abc

{ Дано предложение. Подсчитать число пробелов,
стоящих на нечетных местах, и заменить такие пробелы
на символ «*» }

var t,s: string; n,k,i: integer;
begin
  writeln ('Введите предложение:');
  readln (t);
  n:=length(t); 
  s:='*'; 
  k:=0;
  for i:=1 to n do begin;  
      if (t[i]=' ') and (i mod 2 =1)
        then begin
          k:=k+1;
          delete(t,i,1);
          insert(s,t,i);
        end        
  end;
  writeln (t);
  writeln ('Нечетных пробелов: ',k)
end.
результат
Жил да*был*черный кот за*углом.
Нечетных пробелов: 3


{ Дано слово, состоящее из количества букв кратного четырем.
поменять в нем буквы следующим образом: первую с четвертой, 
вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. 
например, из слова «карандаш» должны получить «аракшадн». }

const k=4;
var 
  a,a1,a2: string;
  n,i: integer;
begin
  writeln ('Введите слово:');
  readln (a);
  n:=length(a) div k;
  for i:=1 to n do begin      
      a1:=LeftStr(a,k);
      delete(a,1,k);
      a1:=ReverseString(a1);
      a2:=a2+a1;        
  end;  
  writeln (a2); 
end.
результат
карандашкарандаш
аракшаднаракшадн

C# самый простой вариант. Не нравится - совершенствуйте

на форму label1, textBox1, textBox2, textBox3, button1, button2, button3, this.button4, this.button5, this.button6

в Form1.cs

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

namespace WindowsFormsApplication1

{

public partial class Form1 : Form

{

public Form1()

{

InitializeComponent();

}

double a, b, result;

private void button1_Click(object sender, EventArgs e)

{

a = Convert.ToDouble(textBox1.Text);

b = Convert.ToDouble(textBox2.Text);

label1.Text = "Сумма";

result = a + b;

textBox3.Text = Convert.ToString(result);

}

private void button2_Click(object sender, EventArgs e)

{

a = Convert.ToDouble(textBox1.Text);

b = Convert.ToDouble(textBox2.Text);

label1.Text = "Разность";

result = a - b;

textBox3.Text = Convert.ToString(result);

}

private void button3_Click(object sender, EventArgs e)

{

label1.Text = "Произведение";

textBox3.Text = Convert.ToString(Convert.ToDouble(textBox1.Text) * Convert.ToDouble(textBox2.Text));

}

private void button4_Click(object sender, EventArgs e)

{

a = Convert.ToDouble(textBox1.Text);

b = Convert.ToDouble(textBox2.Text);

label1.Text = "Частное";

result = a / b;

textBox3.Text = Convert.ToString(result);

}

private void button5_Click(object sender, EventArgs e)

{

textBox3.Text = Convert.ToString(Convert.ToDouble(textBox1.Text) * Convert.ToDouble(textBox1.Text));

}

private void button6_Click(object sender, EventArgs e)

{

textBox3.Text = Convert.ToString(Math.Sqrt(Convert.ToDouble(textBox1.Text)));

}

}

}

Объяснение:

h,w = int(input().split())

c,p = int(input().split())

s = []

roadm = []

parks = []

cp = []

for i in range(1, h+1):

 for j in range(1, w+1):

   s.append([i,j])

for k in s:

 if k[0]==1 or k[1]==1:

    roadm.append(s.pop(k))

for t in s:

 if t[0] == 2 or t[1] == 2:

   cp.append(s.pop(t))

for y in s:  

 if y[0] == (f[0]+1 for f in cp) and y[1] == (f[1]+1 for f in cp) and y[0] == (f[0]-1 for f in cp) and y[1] == (f[1]-1 for f in cp):

   parks.append(s.pop(y))

a = []

b = []

for o in s:

 a.append(o[0])

 b.append(o[1])

print(min(a))

print(min(b))