Две задачки. Написать на PascalABC.NET.
1) Подсчитать количество слов, в которых встречаются только согласные.
2) Вывести на экран все слова, начинающиеся не с цифры.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
var s:=ReadlnString('->');
var a:=RegEx.Matches(s,'s([бвгджзйклмнпрстфхцчшщ]+)s',
RegexOptions.IgnoreCase);
foreach var w in a do Writeln(w.ToString.Trim);
end.
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.
begin
var s:=ReadlnString('->');
var a:=RegEx.Matches(s,'s([бвгджзйклмнпрстфхцчшщ]+)s',
RegexOptions.IgnoreCase);
foreach var w in a do Writeln(w.ToString.Trim);
end.
// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
ReadlnString('->').ToWords.Where(w->Pos(w[1],'0123456789')=0).Println
end.
Новые вопросы