<span>омонимы к слову stopa
</span>
Нужно добавить всего-то 1 строку:
...
if pos(copy(stroka,i,1),' ,.?!-:;') <> 0 then
{если i-ый символ из строки stroka содержится в строке ' ,.?!-:;', то}
begin
slovo := copy(stroka,1,i-1); // копируем слово
If (slovo[1]='л') or (slovo[Length(slovo)]='ь') then Writeln(Slovo);
delete(stroka,1,i-1); // Удаляем его из текста
while (length(stroka)>0)and (not(stroka[1] in b)) do
delete(stroka,1,1); // удаляем все разделители до следующего слова
i := 1; // снова рассматриваем слово с первого символа
end
....
Смежные файлы можно выделить с SHIFT, а не смежные с CTRL
//В строку location введите расположение требуемого файла
//Если хотите задавать расположение файла в ходе работы программы, то нужно будет убрать const со строки location
//Язык C#
using System;
using System.IO;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
const string location = "E://Test//File.txt";
try
{
Console.WriteLine("Количество чисел, которые не делятся на 3: " + ReadFile(location));
}
catch (Exception)
{
Console.WriteLine("Ошибка (файл недоступен, либо содержит некорректный формат данных)!");
}
finally
{
Console.ReadKey();
}
}
static int ReadFile(string location)
{
int counter = 0;
StreamReader fileReader = new StreamReader(location);
while (!fileReader.EndOfStream)
{
string num = fileReader.ReadLine();
if (Convert.ToInt32(num) % 3 != 0)
counter++;
}
return counter;
}
}
}
