Составить программу на питоне 3.1. Дано слово s1. Получить слово s2, образованное буквами, стоящими на нечетных местах слова s1.

word__str = input('Введи слово: ')

result__str = word__str[0::2]

print(result__str)

Не(первая буква гласная) или не(последняя буква согласная) = 0
Отрицание того, что первая буква гласная означает, что первая буква согласная. То же самое с отрицанием, что последняя буква согласная, отрицание этого означает, что последняя буква гласная:

(первая буква согласная) или (последняя буква гласная) = 0

Инвертируем это выражение, чтобы искать результат не для лжи, а для истины:

не((первая буква согласная) или (последняя буква гласная)) = 1

Раскроем скобки по закону де Моргана:

(первая буква гласная) и (последняя буква согласная) = 1

Под это условие подходит ответ 4) Ярослав. Первая буква гласная (Я) и последняя буква согласная (В).

ответ: 4) Ярослав.

// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Строка:'); // общая часть
  // #1
  var c1,c2:char;
  Write('Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: ');
  Readln(c1,c2);
  s:=s.Replace(c1,c2); s.Println;
  // #2
  s:=s.Where(c->not (c in ['0'..'9'])).JoinIntoString; s.Println;
  // #3
  var k:=ReadInteger('k=');
  s:=s.Batch(k).SelectMany(c->c+NewLine).JoinIntoString(''); s.Println
end.

Пример
Строка: Площадь Чёрного моря 422000 кв.км, Наибольшая глубина 2210 м, средняя — 1240 м.
Введите БЕЗ ПРОБЕЛА исходный и заменяющий символы: гЪ
Площадь ЧёрноЪо моря 422000 кв.км, Наибольшая Ълубина 2210 м, средняя — 1240 м.
Площадь ЧёрноЪо моря  кв.км, Наибольшая Ълубина  м, средняя —  м.
k= 35
Площадь ЧёрноЪо моря  кв.км, Наибол
ьшая Ълубина  м, средняя —  м.