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

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

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

Помогите пожалуйсто решить задачку. Самому ни как не справится..
Разработать программу, которая в заданной строке подсчитывает количество букв в каждом слове. Слова разделены пробелами (одним или несколькими).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.03.2012, 16:20
Ответы с готовыми решениями:

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

Составить программу, которая подсчитывает количество символов во втором слове
там что-то через length, но вот как именно второго слова я хз, помогите

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

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

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

1
tm2012
108 / 108 / 100
Регистрация: 04.03.2012
Сообщений: 146
25.03.2012, 19:12 2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var 
   s:string;
   x:byte;
begin
   clrscr;
   writeln('Введи строку слов:');
   readln(s);
   if s[length(s)]<>' ' then s:=s+' ';
   repeat
      x:=0;
      x:=x+pos(' ',s)-1;
      if x>0 then writeln(x);
      delete(s,1,pos(' ',s));
   until length(s)=0;
   readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.03.2012, 19:12

Подсчитать количество гласных и согласных букв в каждом слове
Помогите пожалуйста решить задачки. 1.ввести в ЭВМ предложения длинной не...

Ввести пять слов. В каждом слове заменить буквы А на О. Использовать процедуру замены в строке букв А на О.
Ввести пять слов. В каждом слове заменить буквы А на О. Использовать процедуру...

Написать программу, которая находит количество знаков препинания в заданной символьной строке.
Написать программу, которая находит количество знаков препинания в заданной...


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

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

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