Правильный ответ Тепловоз
Var s,t:string; k:integer;
begin
writeln('Введите строку:');
readln(s);
t:=UpperCase(s);
k:=0;
while pos('ЕЛЬ',t)>0 do
begin
delete(t,pos('ЕЛЬ',t),3);
k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
сосна ель ёлка ЕЛЬ берёза
k = 2
//В строку 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;
}
}
}
<span>Если я правильно понял вопрос, то ответ такой:
С:\Рисунки\природа\Небо.bmp и Снег.bmp
</span><span>С:\Мои документы\доклад .bmp (И если это Доклад, то скорее всего он в формате .doc. т.к. BMP относится к графическим файлам.)</span>
Ну дык, это же информатика - именно так называется раздел, куда Вы поместили этот вопрос.