Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Дима Скок
0 / 0 / 0
Регистрация: 02.02.2012
Сообщений: 43
1

Строки и символы. Распечатать самое длинное слово и подсчитать количество букв "ю" в нём

07.02.2012, 18:25. Просмотров 719. Ответов 1
Метки нет (Все метки)

2. Дана строка длиной не более 255 символов. Группы символов, разделённых между собой одним пробелом и не содержащих пробелов внутри себя, назовём словами. Слова в строке отделены одним пробелом, в конце ставится точка. Распечатать самое длинное слово (первое) и подсчитать количество букв "ю" в нём.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2012, 18:25
Ответы с готовыми решениями:

Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём
Распечатать самое длинное слово (первое) и подсчитать количество букв "а" в нём.

Найти в каждой строке самое длинное слово среди тех, в которых есть 3 или больше букв "о".
Дано N строк русского текста. Найти в каждой строке самое длинное слово среди...

Даны две текстовые строки, подсчитать в них количество букв "а" и "б"
Помогите решить пожалуйста Даны две текстовые строки, подсчитать в...

Распечатать самое длинное слово (последнее) и самое короткое слово (первое)
Распечатать самое длинное слово (последнее) и самое короткое слово (первое).

Найти самое длинное слово, начинающееся и заканчивающееся на букву "т"
дан текст состоящий из слов,разделенных пробелами. найти самое длинное слово,...

1
Фаер
640 / 369 / 259
Регистрация: 09.12.2011
Сообщений: 733
Записей в блоге: 35
07.02.2012, 19:34 2
Лучший ответ Сообщение было отмечено Дима Скок как решение

Решение

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
Program Slovo;
Uses crt;
Var s,e,g:string; p:char; kol,max,k,i:integer;
Begin
ClrScr;
Writeln('Введите строку:');
Repeat
  p:=Readkey;
  Write(p);
  s:=s+p;
Until p='.';{ввод закончится как только Вы нажмёте "точку"}
For i:=1 to length(s) do
 Begin
  If not(s[i]=' ') and not(s[i]='.') then
   Begin
    e:=e+s[i]; k:=k+1;
   End
  Else If k>max then
   Begin
    max:=k; g:=e;
    k:=0; e:='';
   End
  Else
   Begin
    k:=0; e:='';
   End;
 End;
Writeln;
Writeln('Самое длинное слово:',g);
For i:=1 to length(g) do
 Begin
  If (g[i]='ю') or (g[i]='Ю') then kol:=kol+1;
 End;
Writeln('Кол-во букв ю:',kol);
Readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 19:34

Найти самое длинное слово, начинающееся и заканчивающееся на букву "т"
пожалуйста помогите решить, никак не получается но скоро надо сдавать. дан...

Найти самое длинное слово среди слов, вторая буква которых есть "e"
Ув. пользователи форума, помогите пожалуйста! Дан символьный файл f. Найти...

Найдите самое длинное слово среди слов, второй буквой которых является "e"
Дан текстовый файл f. Найдите самое длинное слово среди слов, второй буквой...


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

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

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