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

В данном тексте найти кол-во символов,цифр

25.04.2013, 19:21. Просмотров 819. Ответов 1
Метки нет (Все метки)

В данном тексте найти кол-во символов,цифр
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2013, 19:21
Ответы с готовыми решениями:

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

Найти сумму всех цифр, которые встречаются в данном тексте
Написать программу, которая находит сумму всех цифр, которые встречаются в данном тексте.Если эта...

Рекурсия: подсчет количества цифр в данном тексте
во входном файле задан символьный текст, за которым следует точка. Описав подходящую рекурсивную...

Подсчитать количество предложений в данном тексте. Текст записан в строковый массив по 250 символов в элементе массива
361. Подсчитать количество предложений в данном тексте. Текст записан в строковый массив по 250...

Провести частотный анализ текста: посчитать, сколько различных символов встречается в данном тексте
4.19. Файл содержит информацию в виде символьных строк произвольной длины. Провести частотный...

1
Midian
220 / 220 / 170
Регистрация: 31.03.2013
Сообщений: 1,963
Завершенные тесты: 6
25.04.2013, 20:17 2
Лучший ответ Сообщение было отмечено Dekmov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const
alf = ['а'..'я'];
chislo = ['0'..'9'];
var
str: string;
i,kol1,kol2: byte;
begin
write('Введите строку: ');
readln(str);
kol1:=0;
kol2:=0;
for i:=1 to length(str) do
if (str[i] in alf) then
begin
inc(kol1);
end
else
if (str[i] in chislo) then
begin
inc(kol2);
end;
writeln('Количество символов в строке = ',kol1);
writeln('Количество чисел в строке = ',kol2);
end.
Добавлено через 42 секунды
Делал в Pascal ABC если что
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2013, 20:17

Дана строка,выяснить встречается ли в данном тексте группа букв 'one', до и после которой следует не менее 2-х цифр,
Помогите плиз,голову ломаю,не могу решить. Дана строка,выяснить встречается ли в данном тексте...

Найти кол-во цифр числа, больших 6 и произведение цифр, не удовлетворяющих данному критерию
Дано натуральное число. Написать программу, котрая будет находить: а)кол-во цифр этого числа,...

Во введенной строке символов подсчитать кол-во цифр, слов. Считать, что предложения разделены точками.
Во введенной строке символов подсчитать кол-во цифр, слов. Считать, что предложения разделены...


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

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

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