Question

1. Дана строка, содержащая текст. Сколько слов в тексте? Сколько цифр в тексте?
2. Опишите содержимое текстового файла, из которого будут вводиться данные, соответствующие описанию из предыдущего задания, для нескольких учеников класса (не менее 5).

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  Writeln('Количество слов в строке равно ',s.ToWords.Count);
  Writeln('количество цифр в строке равно ',
      s.Where(c->c in ['0'..'9']).Count)
end.

Пример
В России День Победы празднуется 9 мая начиная от 1945 года
Количество слов в строке равно 11
количество цифр в строке равно 5

2. Текстовый файл может содержать столько текстовых строк, сколько в классе учеников. Каждый ученик должен прочитать и обработать строку из файла, соответствующую своему порядковому номеру в журнале.