Pascal ABC

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

Войти

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

Другие темы раздела
Pascal ABC Подпрограммы https://www.cyberforum.ru/ pascalabc/ thread809137.html Даны две целые квадратные матрицы С и Т порядка n. Найти n –количество четных чисел на главной и побочной диагонали матрицы T и m- количество аналогичных чисел для матрицы С. Если n<m, найти...	строки1 Сортировка матрицы Pascal ABC Дана целая матрица размера (nxm), n,m 10. В каждой строке матрицы переставить элементы так, чтобы в начале были все отрицательные элементы, а затем все положительные элементы строки и число 0...
Pascal ABC Текстовый файл ABC Имеется текстовый файл, в котором записана одна строка «Здравствуйте, дорогие ребята». Приписать в конце строки восклицательный знак. https://www.cyberforum.ru/ pascalabc/ thread809122.html	Pascal ABC Типизированный файл ABC Имеется типизированный файл, в котором записаны 18 целых чисел. Переписать все положительные числа файла в массив в том же порядке. https://www.cyberforum.ru/ pascalabc/ thread809120.html
Строки ABC Pascal ABC Дан текст. Проверить, что в данное слово заданный символ входит не менее 2 раз	Pascal ABC Заполнение двумерных массивов разными способами 1.Заполнить массив следующими способами: 1) При помощи типизированных констант; 2) При помощи присваивания. 3) Случайными числами; 1 1 1 1 1 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0... https://www.cyberforum.ru/ pascalabc/ thread809114.html
Pascal ABC Найти сумму всех двузначных чисел из строки Помогите пожалуйста! Дана строка, состоящая из слов и чисел, разделенных пробелами. Найти сумму всех двузначных чисел из этой строки. https://www.cyberforum.ru/ pascalabc/ thread809110.html	Pascal ABC шашки на двумерный массив Дано игровое поле для шашек размером 8х8. На шашечное доске находятся белые и черные шашки. Белые обозначим - 1, черные – 2, а пустая клетка 0. Определить количество черных и белых шашек.
Pascal ABC Написать программу по записям ! https://www.cyberforum.ru/ pascalabc/ thread808941.html Рассортировать корреспонденцию, поступившую в почтовое отделение: 1. Иногородние 2. Внутри города по улицам Вывести на экран заданную группу.	Pascal ABC Нарисовать повторяющиеся контуры https://www.cyberforum.ru/ pascalabc/ thread808935.html Цвета в первой и второй рандомно.
Построить и напечатать множество Pascal ABC Дана не пустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от ‘G’ до ‘N’и цифры от ‘0’ до ‘9’.	Pascal ABC Заполнить массив несколькими способами 1. Заполнить массив следующими способами: 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 1 1 1 1 1 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 https://www.cyberforum.ru/ pascalabc/ thread808930.html

Кызюавка

12 / 12 / 14

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

Сообщений: 46

15.03.2013, 09:19

Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз. - Pascal ABC - Ответ 4257663

15.03.2013, 09:19. Показов 3673. Ответов 2

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

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

Решение

Pascal

program predl;
uses crt;
var s,sm,sn:string; i,pm,pn:byte; c:char;
begin
s:='Манка скамейка носорог носки';
for i:=1 to length(s) do   begin
if lowcase(s[i])='м' then   inc(pm);
if lowcase(s[i])='н' then   inc(pn);
end;
if pm=pn then begin writeln('Кол-во букв в предложении равно'); exit; end; if pm>pn then c:='м' else c:='н';
writeln('Буква "',c,'" встречается чаще');
for i:=1 to length(s) do
if lowcase(s[i])=c then begin  s[i]:=upcase(c); insert('(',s,i); inc(i);  insert(')',s,i+1);  end;
write(s);
end.

Pascal

program slovo;
uses crt;
var s:string; i,k:byte;
begin
s:='Слово';
k:=0;
for i:=1 to 4 do  begin
if k=0 then begin s:=s+'-'; k:=1; end;
insert('-',s,length(s));
insert('+',s,1);     end;
write(s);
end.

Вернуться к обсуждению:
Строка: Найти все слова, которые содержат символ «t» и встречаются в тексте не менее 2 раз. Pascal ABC

Следующий ответ

Programming

Эксперт

94731 / 64177 / 26122

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

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

15.03.2013, 09:19

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

Множества. Вывести те, которые встречаются в тексте не менее 2-х раз
. Дан текст, состоящий из строчных латинских букв. Вывести те, которые встречаются в тексте не...

Удалить из массива все элементы которые встречаются менее двух раз.
Дан целочисленный массив ,состоящий из n элементов. Удалить из массива все элементы которые...

Напечатать те слова, которые встречаются в тексте один раз
дано предложение.напечатать те слова которые встречаются в нем один раз. Добавлено через 12...

Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х символов
Дан текстовый файл, содержащий строки. Вывести все слова в строке, которые содержат менее 4-х...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

15.03.2013, 09:19

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

Вывести на экран все слова, которые встречаются в последовательности только один раз
У тексті поміж словами розташована кома, за останнім словом - крапка. Вивести на екран усі слова,...

Дана строка; найти в ней те слова, которые содержат хотя бы одну букву к
Данна строка. Найти в ней те слова, которые содержат хотя бы одну букву к.

Дана строка, найти в ней те слова, которые содержат хотя бы одну букву k
Помогите решить. 4. Дана строка. Найти в ней те слова, которые содержат хотя бы одну букву k. ...

Найти все слова, в которые заданный символ входит не менее двух раз
Написать 2 программы 1) 2) Для каждой программы написать 2 варианта: 1 вариант - работа со...

Наверх