Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Если команда состоит из двух байт, то как прописать каждый байт отдельно? https://www.cyberforum.ru/ pascal/ thread1262177.html Если команда состоит из двух байт , то как прописать каждый байт отдельно? Например , нужно записать команду в порт 60H. Первый байт - код команды(03F) . А второй байт определяет...	Pascal Вычислить значение функции Помогите пожалуйста решить! y=\begin{cases}2+4x+0.5x^2 &\ ,\ \ 1\leq x<2\\ e^{1/3} & \ ,\ \ 2\leq x<3\\ x^3+x & \ ,\ \ 3\leq x<4 \end{cases}
Pascal Строковый тип данных. Определить произведение чисел https://www.cyberforum.ru/ pascal/ thread1262055.html Дана символьная строка, содержащая цифры от 0 до 9, объединенные в слова, разделенные между собой одним или несколькими пробелами. Рассматривая слова как числа, определить произведение этих чисел.	Pascal Слово - перевертыш https://www.cyberforum.ru/ pascal/ thread1262007.html К примеру, есть слово ШАЛАШ и надо определить, является ли оно перевертышем или нет. Мою программу на Паскале и блок - схему раскритиковали в пух и прах, помогите написать/начертить, пожалуйста. Если...
Pascal Поиск максимального элемента массива, количества максимальных и их индексов Ребят, выручайте! Есть одномерный массив Х = 10, 8, 5, 10, 6, 8, 10, 10. Надо нарисовать блок схему поиска максимально элемента в этом массиве, количества максимальных элементов и их индексы. То...	Pascal Двумерный массив. Посчитайте сумму отрицательных чисел и индексов https://www.cyberforum.ru/ pascal/ thread1261981.html Дан двумерный массив. Найти: сумму всех отрицательных чисел и индексов.
Pascal Задача на заполнение массива здравствуйте помогите решить задачу где надо заполнить массив (задача на картинке) https://www.cyberforum.ru/ pascal/ thread1261970.html	Нет индексного свойства по умолчанию для типа real Pascal Нет индексного свойства по умолчанию для типа real. Изменение типа переменных не принесло успехов. Просьба помочь разобраться в ошибке, возможно исправить код. За ранее спасибо. var...
Pascal Вычислить сумму из n слагаемых https://www.cyberforum.ru/ pascal/ thread1261335.html Дано целое число n (вводится с клавиатуры). Вычислить сумму из n слагаемых: y=\frac{n!}{\sqrt{1}}+\frac{(n-1)!}{\sqrt{2+3}}+\frac{(n-2)!}{\sqrt{4+5+6}}+\frac{(n-3)!}{\sqrt{7+8+9+10}}+...	Pascal Разложить числа на четные и нечетные https://www.cyberforum.ru/ pascal/ thread1261315.html Разложить числа на четные и нечетные. Паскаль. Спасибо большое!
Pascal Ошибка в программе, определяющей пересечение фигур var d1,d2,a,b,x1:real; c,h,a1,a2,y1,y2:real; begin writeln('Введите Полуоси элипса'); readln(d1,d2); writeln('Введите гипотенузу и катет треугольника'); readln(a,b); writeln('Введите...	Pascal Передача массива в процедуру https://www.cyberforum.ru/ pascal/ thread1261245.html Делаю quicksort, массив читаю из файла. Не выходит передать массив в процедуру. Входные параметры в процедуру не поддерживают границы массива, а считать массив из файла невозможно без границ. Как...

Joy

2383 / 1295 / 1491

Регистрация: 29.08.2014

Сообщений: 4,651

25.09.2014, 07:34

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

25.09.2014, 07:34. Показов 1835. Ответов 1

Метки (Все метки)

Сообщение было отмечено Ssshikari как решение

Решение

Pascal

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

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.

Вернуться к обсуждению:
Определить слова, в которых количество букв кратно трем Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.09.2014, 07:34

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.09.2014, 07:34

Помогаю со студенческими работами здесь

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

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

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

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

Наверх