Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Выведите все слова,в которых встречается удвоение буквы Пожалуйста, помогите написать программу на Pascal через string. Введите строку длинною 70 символов. Выведите все слова,в которых встречается удвоение буквы. https://www.cyberforum.ru/ free-pascal/ thread2453828.html Free Pascal ОШИБКА: Нельзя преобразовать тип real к integer
Как ее исправить? 10 строка var a:integer; i:byte; s,x,q,k:real; procedure proc (s: integer;var k:integer); begin k:=3; s:=1; for var i:=1 to 4 do
Free Pascal Написать программу на перевод чисел из десятичной системы счисления в двоичную Помогите пожалуйста написать программу, заранее спасибо! Задание: Исходный текстовый файл содержит числа в десятичной системе счисления, отделенные друг от друга хотя бы одним пробелом. Составить программу, которая под каждым десятичным числом в файле указывает его значение в двоичной системе счисления, например: 156 93 0 7 10011100 1011101 ... https://www.cyberforum.ru/ free-pascal/ thread2453674.html Free Pascal Написать программу на перевод чисел из шестнадцатеричной системы счисления https://www.cyberforum.ru/ free-pascal/ thread2453065.html
Задание: Исходный файл содержит числа в шестнадцатеричной системе счисления, отделенные друг от друга запятыми. Составить программу, которая для каждого такого числа из заданного диапазона после знака равенства указывает его значение в десятичной системе счисления, двоичной системе счисления или в виде инверсии по выбору пользователя, например: 00101111 = 33353, 0111 = 73, 10000 = 512, и т....
Задача A. «Театр начинается с вешалки?» Free Pascal
Задача A. «Театр начинается с вешалки?» В Омском драматическом театре расширили гардероб. Нужно сделать номерки на новые вешалки. Посчитайте – сколько новых номерков нужно сделать. Входные данные: В единственной строке находятся два числа a и b (1 <= a < b <= 1000). a – первый номер новых вешалок, b – последний номер новых вешалок. Выходные данные: Вывести одно число – сколько новых...
Free Pascal Написать программу "Процедуры" Помогите пожалуйста написать программу по теме "Процедуры" Задание: Составить подпрограмму подсчета суммы значений элементов в одномерном массиве. С помощью этой подпрограммы подсчитать суммы элементов в главной и побочной диагоналях в произвольно заданной квадратной матрице В. Вывести сообщение, какая диагональ имеет максимальное значение. Заранее спасибо! https://www.cyberforum.ru/ free-pascal/ thread2452644.html
Free Pascal Написать программу "Двумерные массивы" Помогите пожалуйста написать программу "Обработка двумерных массивов данных.Матрицы" Задание: Сформировать одномерный массив, состоящий из максимальных значений положительных элементов соответствующих строк произвольно заданной матрицы B размера 5×6. Заранее спасибо! https://www.cyberforum.ru/ free-pascal/ thread2452642.html Массив: В заданном массиве определить два элемента с наибольшими значениями и обнулить все элементы между ними... Free Pascal
Помогите пожалуйста написать программу на тему одномерных массивов. Задание: В произвольно заданном одномерном массиве определить два элемента с наибольшими значениями и обнулить все элементы, расположенные между найденными значениями. Заранее спасибо!
Free Pascal Написать программу "Организация ввода и вывода" https://www.cyberforum.ru/ free-pascal/ thread2452639.html
Помогите пожалуйста написать программу "организация ввода и вывода" 3 вариант, заранее спасибо!!!
Free Pascal Доделать программу https://www.cyberforum.ru/ free-pascal/ thread2452475.html
Задание: Выяснить, имеется ли в списке фамилия «Ганеев». Если имеется, то исправить ее на «Ганиев». У меня не получаеться высчитать чтобы произошла замена помогите var s:string; i:integer; begin writeln('введите фамилии'); readln(s);
Program_LABA9.pas(100,43) Error: Incompatible type for arg no. 2: Got "Constant String", expected "LongInt" Free Pascal
Помогите решить проблему Program_LABA9.pas(100,43) Error: Incompatible type for arg no. 2: Got "Constant String", expected "LongInt" program lb9; uses crt; const ten=10; type anketa=record name:string; mark1:byte;
Free Pascal Написать программу с вложенными циклами Помогите пожалуйста написать программу в паскале с вложенными циклами, на вложенной картинке 3 вариант. Заранее спасибо! https://www.cyberforum.ru/ free-pascal/ thread2451890.html
0 / 0 / 0
Регистрация: 15.05.2019
Сообщений: 7
0

Выведите все слова,в которых встречается удвоение буквы - Free Pascal - Ответ 13573386

16.05.2019, 00:08. Показов 1159. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
написать программу на Pascal через string.
Введите строку длинною 70 символов. Выведите все слова,в которых встречается удвоение буквы.

Вернуться к обсуждению:
Выведите все слова,в которых встречается удвоение буквы Free Pascal
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.05.2019, 00:08
Готовые ответы и решения:

Pascal. Написать программу Змейка через массивы по 2 случаям
Спираль и зигзаг

Написать программу на Pascal (циклы)

Написать программу на Pascal (множества)

Прошу написать программу на Pascal
Очень прошу,напишите мне пожалуйста программу, это на ДПА. За даними, що містяться в таблиці...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.05.2019, 00:08
Помогаю со студенческими работами здесь

Написать программу вычисления объема куба на Pascal
Длина ребра (см)&gt; 9.5 Объем должен быть равен 857.38 куб.см. Желательно я какими то объяснением. ...

Как можно четко изложить эту программу через string?
С клавиатуры вводятся две строки, содержащие некоторые слова. Слова перечислены через запятую....

Написать программу, которая работает так же как и функция count модуля string
Помогите пожалуйста! Нужно написать программу, которая будет работать так же как и функция count,...

Как написать программу через функцию?
#include &lt;stdio.h&gt; int main() { int *a, i; double sum = 0, arithmeticAverage = 0; ...

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