Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC На интервале [n;m] методом половинного деления найти решение квадратного уравнения ax2+bx+c=0 https://www.cyberforum.ru/ pascalabc/ thread1167707.html
3. На интервале методом половинного деления найти решение квадратного уравнения ax2+bx+c=0 c точностью до 0.1. Числа a,b,c,n и m взять из таблицы , a=-2, b=3, c=2. Помогите а то после армии не помню
Определить, совпадают ли компоненты файла f с компонентами файла g Pascal ABC
527. Даны два текстовых файла f и g. Определить, совпадают ли компоненты файла f с компонентами файла g. Если нет, то получить номер первой строки и позицию первого символа в этой строке, в которых...
Pascal ABC Вставить цифру «0» в середину стека, если четное число элементов, а если нечетное, то после среднего элемента https://www.cyberforum.ru/ pascalabc/ thread1167583.html
Создать стек из случайных целых чисел. Вставить цифру «0» в середину стека, если четное число элементов, а если нечетное, то после среднего элемента. Добавлено через 21 час 48 минут up! ...
Pascal ABC Справочная служба телефонной компании https://www.cyberforum.ru/ pascalabc/ thread1167557.html
Справочная служба телефонной компании.Телефонная компания автоматизировала телефонный справочник.Справочник содержит адрес, фамилию и номер телефонного абонента. Поиск требуемой информации вызывает...
Pascal ABC Заполнить множество числами, определяющими количество единиц в двоичном представлении случайных чисел
Входной информацией для программы является n случайных чисел из диапазона 1000 .. 10000. Заполнить множество числами , определяющие количество единиц в двоичном представлении случайных чисел....
Pascal ABC Получить множество всех общих шестнадцатеричных цифр трех натуральных чисел А, В, С https://www.cyberforum.ru/ pascalabc/ thread1167549.html
Составить программу, получает множество всех общих шестнадцатеричных цифр трех натуральных чисел А , В , С Помогити девушке ришить задачку вотакую Спасиюо за помощь)))
Pascal ABC На плоскости находятся точки. Найти те точки, образующие замкнутый контур этого множества На плоскости находятся точки . Используя вспомогательную программу найти те точки , образующие замкнутый контур этого множества. Помогити девушке ришить задачку вотакую Спасиюо за помощь))) https://www.cyberforum.ru/ pascalabc/ thread1167542.html Pascal ABC Разделить самородки на две кучи, наиболее близкие по весу
Помогити девушке ришить задачку вотакую В куче лежат Р золотых самородков известной веса. Разделить самородки на две кучи , наиболее близкие по весу. спасибо за помощь)))
Pascal ABC Вычисление среднего арифметического заданных элементов массива оформить в виде подпрограммы https://www.cyberforum.ru/ pascalabc/ thread1167449.html
Дано: массив Q13. Вычислить среднее арифметическое элементов, имеющих четные индексы, и среднее арифметическое элементов, имеющих нечетные индексы. Вычисление среднего арифметического заданных...
Pascal ABC Найти сумму N чисел Фибоначчи 4. Найти сумму N чисел Фибоначчи. Вычисление каждого члена Фибоначчи оформить в виде пользовательской процедуры или функции. https://www.cyberforum.ru/ pascalabc/ thread1167426.html
Pascal ABC Два отрезка выходят из начала координат. Даны координаты концов этих отрезков. Ка-кой из отрезков длиннее?
3. Два отрезка выходят из начала координат. Даны координаты концов этих отрезков. Ка-кой из отрезков длиннее? Определение длины одного отрезка оформить в виде пользовательской процедуры или функции.
Pascal ABC Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа X https://www.cyberforum.ru/ pascalabc/ thread1167423.html
2. Дан натуральный отрезок чисел . Найти те числа этого отрезка, суммы цифр кото-рых больше заданного числа Х. Проверку, является ли сумма цифр данного числа больше задан-ного числа Х, сделать с...
903 / 751 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
06.05.2014, 12:06 0

Найти и вывести все слова текста, в которых есть хотя бы одна цифра - Pascal ABC - Ответ 6133988

06.05.2014, 12:06. Показов 2183. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  i, n: integer;
  S, t: string;
  bln: boolean;
  
begin
  writeln('Введите строку:');
  readln(S);
  S := S + ' ';
  n := Length(S); //количество символов в строке (длина строки)
  i := 1; //начальный номер символа
  while i < n do begin
    t := '';
    bln := false; //нет цыфры в слове (по умолчанию)
    while (s[i] <> ' ')and(i < n) do begin
      t := t + s[i];
      if s[i] in ['0'..'9'] then bln := true; //нашли цыфру в слове
      inc(i)
    end;
    if bln then write(t, ' '); //если нашли цыфру, то выводим слово
    inc(i)
  end
end.


Вернуться к обсуждению:
Найти и вывести все слова текста, в которых есть хотя бы одна цифра Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2014, 12:06
Готовые ответы и решения:

Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите их количество
1. Задача . Найти все четырехзначные числа, в записи которых есть хотя бы одна цифра 4. Определите...

На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра.
На вход программе подается набор символов (в одной строке), среди которых есть хотя бы одна цифра....

Дана строка. Вывести на экран те слова строки, где встречается хотя бы одна цифра
оформить в виде процедуры и функции

Найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5
7)найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2014, 12:06

Выяснить, есть ли в заданном числе хотя бы одна цифра, кратная трём
Есть ли в заданном числе (количество цифр в числе заранее не известно) хотя бы одна цифра, кратная...

В диапазоне от a до b вывести все числа, в середине которых есть четная цифра
В диапазоне от a до b вывести все числа,в середине которых четная цифра. Если в числе четное...

Найти все двузначные числа, в которых есть заданная цифра
найти все двузначные числа, в которых есть заданная цифра.

Найти все числа, у которых старшая значащая десятичная цифра есть 9
В заданном вещественном массиве найти все числа,у которых старшая значащая дестичная цифра есть...

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