Question

Две задачки. Написать на PascalABC.NET. 1) Подсчитать количество слов, в которых встречаются только согласные. 2) Вывести на экран все слова, начинающиеся не с цифры.

Answer 1

// 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.

Answer 2

Решение задач на PascalABC.NET

Давайте начнем с первой задачи.

1) Подсчет количества слов, в которых встречаются только согласные

Для решения этой задачи мы можем использовать следующий алгоритм на PascalABC.NET:

program CountConsonantWords;
var
  sentence, word: string;
  i, count, vowels: integer;
const
  consonants = 'bcdfghjklmnpqrstvwxyzBCDFGHJKLMNPQRSTVWXYZ';
begin
  count := 0;
  writeln('Enter a sentence: ');
  readln(sentence);
  sentence := sentence + ' '; // добавляем пробел в конце, чтобы обработать последнее слово
  word := '';
  vowels := 0;
  for i := 1 to length(sentence) do
  begin
    if sentence[i] <> ' ' then
      word := word + sentence[i]
    else
    begin
      vowels := 0;
      for i := 1 to length(word) do
      begin
        if pos(word[i], consonants) > 0 then
          vowels := vowels + 1;
      end;
      if vowels = length(word) then
        count := count + 1;
      word := '';
    end;
  end;
  writeln('The number of words with only consonants: ', count);
end.

Этот код считает количество слов во введенном предложении, в которых встречаются только согласные.

2) Вывод на экран всех слов, начинающихся не с цифры

Для второй задачи мы можем использовать следующий алгоритм на PascalABC.NET:

program PrintNonNumericWords;
var
  sentence, word: string;
  i: integer;
begin
  writeln('Enter a sentence: ');
  readln(sentence);
  sentence := sentence + ' '; // добавляем пробел в конце, чтобы обработать последнее слово
  word := '';
  for i := 1 to length(sentence) do
  begin
    if (sentence[i] >= 'a') and (sentence[i] <= 'z') or (sentence[i] >= 'A') and (sentence[i] <= 'Z') then
      word := word + sentence[i]
    else if word <> '' then
    begin
      if not (word[1] in ['0'..'9']) then
        writeln(word);
      word := '';
    end;
  end;
end.

Этот код считывает предложение и выводит на экран все слова, начинающиеся не с цифры.

Надеюсь, эти решения помогут вам выполнить задачи на PascalABC.NET!