Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
FastFires
0 / 0 / 0
Регистрация: 17.10.2016
Сообщений: 3
#1

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

17.10.2016, 20:20. Просмотров 426. Ответов 1
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
sum,k,m,n,i:integer;
s:string;
begin
sum:=0;
read(s);
k:=length(s);
for i:=1 to k do
 begin
  if (s[i]='k') and ((s[i+1]=' ') or (s[i-1]=' ') or (s[i+1]='') or (s[i-1]='')) then
   begin
   n:=i;
   for m:=n to k do
     begin
     if (s[n]='k') and ((s[n+1]=' ') or (s[n+1]='')) then sum:=sum+1;
     break;
     end;
   end;
  end;
writeln(sum);
 
end.
Помогите, где здесь ошибка? Как её исправить?

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

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2016, 20:20
Ответы с готовыми решениями:

Дана строка. Определить сколько в ней символов *, ; ,:
Помогите создать блок-схему и написать программу

Дана строка, определить сколько в ней символов '*',':',';'
Здравствуйте!!!Помогите пожалуйста решить!((( Дана строка, состоящая из...

Cформировать новый файл из предложений исходного, в которых нет слов, начинающихся и заканчивающихся на одну и ту же букву
Дан текстовый файл.каждая строка отдельное предложение.сформировать второй файл...

Дана строка символов. Замените в ней букву а на букву о до первой точки
Дана строка символов. Замените в ней букву а на букву о до первой точки.

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

1
alperin03
1 / 1 / 0
Регистрация: 20.09.2016
Сообщений: 6
17.10.2016, 20:39 #2
Советую учить JAVA SE
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2016, 20:39

Определить количество слов, начинающихся и заканчивающихся совпадающими символами
Определить кол-во слов, начинающихся и заканчивающихся совпадающими символами c...

Дана фраза. Найти количество слов, начинающихся на букву «а»
Слова разделяются пробелом, фраза заканчивается точкой. Найти количество слов,...

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


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

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

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