Помогите пожалуйста с задачей по программированию. В заданном тесте подсчитать количество...

Question

Помогите пожалуйста с задачей по программированию.
В заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "SsSs". Слова отделены друг от друга пробелом.

Answer 1

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

begin
  var a:=ReadlnString('->').ToWords;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i].Length=4 then begin
      k+=1;
      if k.IsEven then a[i]:='SsSs'
      end;
  Writeln('Четырехбуквенных слов: ',k);
  var s:=a.JoinIntoString(' ');
  Writeln(s)
end.

Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама SsSs раму Тамара ела SsSs а Даша играла в мяч

Comments

извините пожалуйста

---

Turbo Pascale 7.0 (DOS)