Спо программированию. в заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "". слова отделены друг от друга пробелом.
// 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]:='' end; Writeln('Четырехбуквенных слов: ',k); var s:=a.JoinIntoString(' '); Writeln(s) end.
Пример -> Мама мыла раму Тамара ела кашу а Даша играла в мяч Четырехбуквенных слов: 5 Мама раму Тамара ела а Даша играла в мяч
// Внимание! Если программа не работает, обновите версию!
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]:=''
end;
Writeln('Четырехбуквенных слов: ',k);
var s:=a.JoinIntoString(' ');
Writeln(s)
end.
Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама раму Тамара ела а Даша играла в мяч