Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
ruk1992
0 / 0 / 0
Регистрация: 05.11.2009
Сообщений: 17
1

посчитать количество слов, которые имеют не меньше двух букв с.

11.12.2009, 17:06. Просмотров 1067. Ответов 1
Метки нет (Все метки)

задана строка что складываэца з слов розделеных одним или нескольками пропусками.
пощетать количество слов которые имеют не менше двох букв с.
в упражнение входные даные содержатся в файле data.txt. ответ должен содедержаца в файле rez.txt
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2009, 17:06
Ответы с готовыми решениями:

Посчитать количество слов, содержащих не менее двух гласных букв подряд
Доброго времени суток ребят, срочно надо решить 2 задачи. я месяц не могу...

Дана последовательность, состоящая из 10 слов. Напечатать те слова последовательности, которые имеют нечётное количество символов
Дана последовательность, состоящая из 10 слов. Напечатать те слова...

Подсчитать количество слов в тексте, которые содержат одинаковое количество букв
помогите плз....если не сложно то с пояснениеями. Подсчитать количество...

Посчитать количество слов, которые не содержат букву А.
задача такая- по одному символу до точки вводятся символы предложения.слова...

Определить количество слов, которые не имеют в своем составе ни одного символа такой цепочки и вывести эти слова на экран.
Здравствуйте уважаемые обитатели форума. Помогите решить задачки:...

1
yanyk1n
4332 / 1464 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
11.12.2009, 17:29 2
Лучший ответ Сообщение было отмечено ruk1992 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
program kkk;
uses crt;
var count,i,j,k,n:integer;
    st,buf:string;
    slova:array[1..100]of string;
    input,output:text;
begin
 clrscr;
 assign(input,'input.txt'):
 readln(input,st);
 close(input);
 count:=1;
 repeat
  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)
  else
  begin
   while (st[1]<>' ') and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
  slova[count]:=buf;
  buf:='';
  inc(count);
  end;
 until (length(st)=0) and (length(buf)=0);
 
 n:=0;
 for i:=1 to count-1 do
 begin
  k:=0;
  for j:=1 to length(slova[i]) do if (slova[i][j]='C') or (slova[i][j]='c') then inc(k); 
  if k>=2 then inc(n);
 end;
 assign(output,'rez.txt');
 rewrite(output);
 writeln(output,n);
 close(output);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2009, 17:29

Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество сдвоенных букв в ведении тексте
Дана строка, состоящая из слов, разделенных пробелами. Посчитать количество...

Подсчитать количество слов, которые содержат пары соседних одинаковых букв
Задание: Задана строка, что состоит из слов, разделенная одним или...

Определить количество слов, содержащих не менее двух букв "А".
1)Переписать массив А(10) в массив В(10) так, чтобы последний элемент стал...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru