Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
33 / 33 / 0
Регистрация: 22.12.2010
Сообщений: 140
1

Дана строка. Сколько слов в ней начинаются на "пере"

22.03.2011, 23:22. Показов 1026. Ответов 1
Метки нет (Все метки)

Дана строка. Сколько слов в ней начинаются на "пере"(и удалить все эти слова)
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.03.2011, 23:22
Ответы с готовыми решениями:

дана строка.Определить сколько в ней символов "*", ";", '':''
дана строка.Определить сколько в ней символов "*", ";", '':''

Дана строка S. Сколько раз в ней встретится символы "*,#,$."
Помогите решить.

Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k?
Дана строка. Определить, сколько в ней слов начинающихся и заканчивающихся на букву k? var...

Дана строка. Подсчитать количество слов, содержащих букву "а"
1. Дана строка. Подсчитать количество слов, содержащих букву «а». 2. Дан текст из строчных...

1
74 / 74 / 44
Регистрация: 12.02.2011
Сообщений: 380
23.03.2011, 14:45 2
Лучший ответ Сообщение было отмечено гошанчик как решение

Решение

как то так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
var s,s2:string;
    t,i:integer;
    u:char;
begin
clrscr;
write('Input string: ');readln(s);
write('Input first symbol in the word: ');readln(u);
while copy (s,1,1)=' ' do delete (s,1,1);
while copy (s,length(s),1)=' 'do delete (s,length(s),1);
while pos('  ',s)<>0 do delete (s,pos(' ',s),1);
s:=s+' ';
repeat
   t:=pos(' ',s);
   s2:=copy(s,1,t-1);
   if s2[1]=u then i:=i+1;
   delete(s,1,t);
until length(s)=0;
write('The are ',i,' words, which start with ',u);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.03.2011, 14:45

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же слова, но разделенные одним символом "."
Дана строка, состоящая из латинских слов, разделенных пробелами. Вывести строку, содержащую эти же...

Дана строка. Найти в ней те слова, которые начинаются и оканчиваются буквой п
Дана строка. Найти в ней те слова, которые начинаются и оканчиваются буквой &quot;п&quot;.

Дана строка символов, среди которых есть двоеточие ":". Определить, сколько символов ему предшествует.
Дана строка символов, среди которых есть двоеточие ( : ). Определить, сколько символов ему...

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


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

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

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