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

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

06.05.2014, 07:58. Просмотров 754. Ответов 1
Метки нет (Все метки)

Дана последовательность символов. Найти и вывести все слова текста, в которых есть хотя бы одна цифра (в любом месте).
\Заранее Благодарю.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.05.2014, 07:58
Ответы с готовыми решениями:

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

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

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

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

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

1
erl27
900 / 748 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
06.05.2014, 12:06 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
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.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.05.2014, 12:06

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

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

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


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

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

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