Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
I313-15
3 / 3 / 4
Регистрация: 27.10.2014
Сообщений: 51
1

Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд

17.12.2014, 18:06. Просмотров 394. Ответов 1
Метки нет (Все метки)

Подсчитать количество слов в строке с двумя буквами «н», стоящими подряд.
Что в ней не так?
Исправьте plezze.
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
uses crt;
var
i, count, max : integer;
s : string;
begin
clrscr;
write('Введите строку: ');
read(s);
max := 0;
count := 0;
for i:=1 to length(s) do
begin
if (s[i] = 'н') then
begin
inc(count);
end
else
begin
if max < count then max := count;
count := 0;
end;
end;
write('Количество слов в строке с двумя буквами «н», стоящими подряд.: ',max);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2014, 18:06
Ответы с готовыми решениями:

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

Подсчитать наибольшее количество идущих подряд пробелов в строке
Даны натуральное число n и символы S1, …,Sn (строка). Подсчитать наибольшее...

Подсчитать, наибольшее количество букв “а”, идущих подряд в данной строке
2) Дана строка символов. Подсчитать, наибольшее количество букв “а”, идущих...

Подсчитать количество слов в строке
Подсчитать количество слов в строке. Считать, что слова отделены друг от друга...

Подсчитать количество слов в строке
Дана строка, которая содержит от 2 до 50 слов в каждом из которых от 1 до 8...

1
Portoble
32 / 32 / 45
Регистрация: 01.11.2014
Сообщений: 155
Записей в блоге: 4
18.12.2014, 15:33 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,t:string;
i,k,p:integer;
Begin
 write('Введите строку: ');
  readln(s);
 t:=s;
 P:=0;
 for i:=1 to length(t) do
  Begin
   if (t[i]='н') and (t[i+1]='н') then
    Begin
     p:=p+1;
     for k:=1 to length(t) do
      if t[i]=' ' then break;
       delete(t,i,1);
    end;
  end;
 write(p);
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.12.2014, 15:33

Подсчитать количество слов в строке
Дана строка, которая содержит от 2 до 50 слов в каждом из которых от 1 до 8...

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

Подсчитать количество слов в данной строке
1. Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать...


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

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

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