Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти произведение целых положительных чисел, кратных 12 и меньших 800 https://www.cyberforum.ru/ pascalabc/ thread603638.html
С помощью циклической структуры, написать блок схему найти произведение целых положительных чисел, кратных 12 и меньших 800 Добавлено через 3 часа 40 минут Das Gespenst помоги)
Pascal ABC Графический режим. Изображение графика
дана функция и нужно построить график.. вот текст программы, проблема в том что график почему то не строиться. появляется пустое белое окно uses graphabc; var gd, gm: integer; xmin, xmax,...
Типизированные файлы. Найти число пассажиров, имеющих более двух вещей Pascal ABC
Найти число пассажиров, имеющих более двух вещей, и число пассажиров, количество вещей которых превосходит среднее число вещей.
Pascal ABC Текстовые файлы. Заменить в файле те слова, которые можно, их синонимами Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2 содержит не более 30 слов, которые разделены запятыми. Эти... https://www.cyberforum.ru/ pascalabc/ thread603512.html
Pascal ABC Строки. Определить долю букв «а» https://www.cyberforum.ru/ pascalabc/ thread603510.html
Дано предложение. Определить долю (в %) букв «а» в нём.
Записи. Ввести информацию по 10 спортсменам Pascal ABC
Ввести информацию по 10 спортсменам (ФИО, рост, вес), определить количество людей, чей вес превышает 70 кг.
Двумерные массивы. Выяснить, сколько положительных элементов содержит массив Pascal ABC
Дано натуральное число n. Выяснить, сколько положительных элементов содержит массив A, если aij = sin(i+j/2).
Pascal ABC Одномерные массивы. Объединить строки по правилу Программа вводит массив из 10 строк и выводит объединение двух строк с номерами 1+10,2+9,…5+6. https://www.cyberforum.ru/ pascalabc/ thread603503.html
Pascal ABC Ввод в паскале https://www.cyberforum.ru/ pascalabc/ thread603449.html
1) как читать стрелочки? с помощью readkey могу читать буквы и цифры, а со стрелочками как? 2) может ли ABC реагировать на мышь? в общем хотелось бы сделать меню у программы, если у Вас...
Pascal ABC Дан двумерный массив. Вычислить количество отрицательных элементов построчно Помогите пожалуйста решить: Дан двумерный массив размерностью 4х5, заполненный целыми числами. Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов ... https://www.cyberforum.ru/ pascalabc/ thread603417.html
Лучи добра
173 / 171 / 191
Регистрация: 08.06.2012
Сообщений: 292
12.06.2012, 16:58 0

Строка: Определить, сколько раз в строке встречались двузначные числа

12.06.2012, 16:58. Просмотров 1376. Ответов 1
Метки (Все метки)

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

Решение


Вот:
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
program z;
var s,s1:string; f,i,j,k,n,a:integer;
begin
     writeln('Введите текст');
     readln(s);
     f:=0; k:=0;
     for i:=1 to length(s) do
         begin
              s1:=copy(s,i,2);
              val(s1,a,n);
              for j:=10 to 99 do
                  if a=j
                     then
                         begin
                              k:=k+1;
                              f:=1;
                         end;
         end;
     if f=0
        then
            writeln('В тексте нет двухзначных чисел')
     else
         writeln('В тексте ',k,' двухзначных числа(ел)');
end.


Вернуться к обсуждению:
Строка: Определить, сколько раз в строке встречались двузначные числа
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.06.2012, 16:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить, сколько раз встречается данная строка в каждой строке текстового файла
1. Создать или открыть текстовый (типизированный, нетипизированный) файл. 2. Выполнить над...

Дана строка символов. Определить, какие символы и сколько раз встречаются в данной строке
Помогите пожалуйста:)))

Дана строка S и слово W. Определить, сколько раз в строке встречается это слово
У меня задание: Дана строка S и слово W. Определить сколько раз в строке встречается это слово. ...

Строка: В заданной строке подсчитать, сколько раз встречается символ “*” и сколько раз символ ”+”.
Помогите описать данную программу так же как на скриншоте Условие:В заданной строке подсчитать,...

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