Question

Помогите пожалуйста решить 1 , 4, 5 задачи . 2 вариант. Паскаль

Answer 1

===== PascalABC.NET =====

// 1

begin

 var s := ReadlnString;

 if s[4] = s[6] then

   Print('Да')

 else

   Print('Нет')

end.

// 4

begin

 var s := ReadlnString;

 s.Where(c -> c = 'а').Count.Println  // для малой русской а

end.

// 5

begin

 var s := ReadlnString;

 if s[Pos(' ', s) - 1] = s[Pos('.', s) - 1] then

   Println('Да')

 else

   Println('Нет')

end.