Напишите 3 вариант, пожалуйста

Question

Напишите 3 вариант, пожалуйста

---

Answer 1

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

begin
  var w:=ReadlnString('Введите слово:');
  w[1]:='*'; w[w.Length]:='*';
  Writeln(w)
end.

Пример
Введите слово: Паскаль
*аскал*

begin
  var s:=ReadlnString('Введите текст:');
  Writeln('Количество слов равно ',s.ToWords.Count)
end.

Пример
Введите текст: Карл у Клары украл кораллы
Количество слов равно 5

Answer 2

1)

Var S:string;
Begin
Write('Введите слово: ');ReadLn(S);
S[1]:='*';
S[Length(S)]:='*';
WriteLn(S)
End.



2)

Var
   S:string;
   i,k:integer;
Begin
Write('Введите строку символов: ');ReadLn(S);
S:=S+' ';
k:=0;
For i:= 1 to Length(S)-1 do
    if (S[i] <> ' ')and(S[i+1] = ' ') then k:=k+1;
WriteLn('Количество слов в строке: ',k);
End.