Составьте программу, позволяющую определить, сколько раз данное слово встречается в этом тексте

@Xmouse · Регистрация: 25.03.2013

Создайте текстовый файл p. Составьте программу, позволяющую определить, сколько раз данное слово встречается в этом тексте

@CodeR · 30.04.2013, 13:11

Pascal

While not Eof(f) do
Begin
  readln(f,s);
  if s=sl then inc(k);
End;

f - текстовый файл
s - string
sl - искомое слово
k - кол-во вхождений

@Xmouse 0 / 0 / 0 Регистрация: 25.03.2013 Сообщений: 52
		1
	Составьте программу, позволяющую определить, сколько раз данное слово встречается в этом тексте 30.04.2013, 10:01. Показов 1459. Ответов 1 Метки нет (Все метки) Создайте текстовый файл p. Составьте программу, позволяющую определить, сколько раз данное слово встречается в этом тексте 0

	30.04.2013, 13:11

Опции темы

Решение