0 / 0 / 0
Регистрация: 18.09.2014
Сообщений: 3
1

Определить слова, в которых количество букв кратно трем

24.09.2014, 19:57. Показов 1816. Ответов 1
Метки нет (Все метки)

Дана символьная строка, содержащая слова, разделенные между собой одним или несколькими пробелами. Определить слова, в которых число символов кратно трем и подсчитать кол-во этих слов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.09.2014, 19:57
Ответы с готовыми решениями:

Записать все слова, в которых количество букв кратно трем
Ввести строку S длиной до 70-ти элементов. В строку S3 записать все слова строки S, в которых...

Записать в новую строку все слова исходной строки у которых количество букв кратно 3
Ввести рядок s, длинною до 70-и символов. В рядах s3 записать все слова ряда S, в каких количество...

Найти в массиве количество локальных минимумов значение которых кратно трем
У меня такая проблема у меня есть задача Задание 25 № 7319. Дан массив, содержащий 2014...

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

1
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
25.09.2014, 07:34 2
Лучший ответ Сообщение было отмечено Ssshikari как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  i,j:integer;
  s:string;
begin
 write('Введите строку>'); 
  readln(s);s:=s+' ';
  i:=0;
  repeat
    j:=pos(' ',s)-1;
    if (length(copy(s,1,j)) mod 3=0) and (j>0) then i:=i+1;
    delete(s,1,j+1);
  until length(s)=0 ;
  writeln('количество слов с количеством букв кратных трем:',i);readln;
end.
Добавлено через 7 минут
вот с выводом списка слов, удовлетворяющих условию:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
  i,j:integer;
  s,s2,s1:string;
begin
 write('Введите строку>'); 
  readln(s);s:=s+' ';
  i:=0;s1:='';
  repeat
    j:=pos(' ',s)-1;
    s2:=copy(s,1,j);
    if (length(s2) mod 3=0) and (j>0) then begin i:=i+1;s1:=s1+s2+#32;end;
    delete(s,1,j+1);
  until length(s)=0 ;
  writeln('количество слов с количеством букв кратных трем:',i);
  writeln('Список слов с количеством букв кратных трем: ',s1);readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.09.2014, 07:34
Помогаю со студенческими работами здесь

Записать условие, которое является истинным, когда: а)целое А кратно двум или трем б)целое А не кратно трем и оканчивает
Записать условие, которое является истинным, когда: а)целое А кратно двум или трем. б)целое А не...

Найти количество натуральных чисел, не превосходящих 1000, каждое из которых кратно 25 и не кратно 3
Найти количество натуральных чисел, не превосходящих 1000, каждое из которых кратно 25 и не кратно...

Индексы элементов,значение которых кратно трём
составьте программу, которая формирует массив из шестнадцати целых чисел от -20 до 20 и находит в...

Определить количество букв Е, Ю и Я в введенном предложении. Слова, в которых эти буквы встречаются более одного раза поставить в начале предложения
Помогите пожалуйста с задачей, очень нужно. Там помимо основного задания еще нужно чтоб программа...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru