|
|
Другие темы раздела | |
Pascal На интервале найти числа, делящиеся на 5 с остатком от деления (дробной частью вещественного числа), равным 4
https://www.cyberforum.ru/ pascal/ thread1914913.html . Даны целые числа N и M. Найти на интервале <от меньшего из них до большего из них> все числа, делящиеся на 5 с остатком от деления (дробной частью вещественного числа), равным 4. Нужно написать код в паскале, заранее огромное спасибо))) |
Pascal Найти на интервале от меньшего до большего все целые числа, модули которых являются кубами целых чисел Даны целые числа N и M. Найти на интервале <от меньшего из них до большего из них> все целые числа, модули которых являются кубами целых чисел. |
Pascal Найти на интервале <от меньшего из них до большего из них> сумму всех целых нечетных чисел, кратных 5 Даны целые числа N и M. Найти на интервале <от меньшего из них до большего из них> сумму всех целых нечетных чисел, кратных 5. https://www.cyberforum.ru/ pascal/ thread1914860.html |
Pascal Проверка вводимых данных
https://www.cyberforum.ru/ pascal/ thread1914783.html Доброго времени суток, уважаемые форумчане. Прошу помощи, разобраться со следующим моментом. Имеется часть кода: repeat clrscr; {$I-} write('Введите значение x '); readln(x); err:=ioresult; if (x<1) or (x>6) or (err=106) then |
Pascal Олимпиада. Шпион Ваня и Саша решили закодировать свои сообщения след.образов: строчные и заглавные буквы, знаки препинания ( . , : ; ? ! ) и пробел заменить на бинарные расширения коды ASCII записанные наоборот, остальные символы оставить без изменений. Помогите закодировать сообщение для Саши. Пример: Ввод: 2а+3B? Вывод:210000110+30100001011111100. Спасибо. Огромное |
Pascal Найти значение получившееся переменной n в результате выполнения Дали в шараге задачу, не могу сам решить, посоветовали в паскаль онлайн напечатать это, мол ответ даст, ошибки лезу, пожалуйста дайте значение или скажите что не так...))) Очень прошу.. //fpc 3.0.0 a := "decomposition"; n := 0; Делать от i = 1 до LEN(a) { b := Часть(a, i, 1); k := 0; Делать от j := i + 1 до LEN(a) { Если Часть(a, j, 1) = b то { k :=1; } } https://www.cyberforum.ru/ pascal/ thread1914646.html |
Pascal Сколько каких дорог? Здравствуйте,помогите пожалуйста написать код.В городе Новые Васюки на некоторых дорогах введено одностороннее движение. Схема дорог задана в виде весовой матрицы графа, числа обозначают длины дорог. Если длины дорог из пункта А в пункт Б разные, это означает, что есть две разные дороги. Найдите отдельно количество дорог в Новых Васюках с односторонним и двусторонним движением. Входные данные... https://www.cyberforum.ru/ pascal/ thread1914456.html |
Pascal Списки смежности из матрицы Здравствуйте,помогите пожалуйста написать программу,спасибо.Напишите программу, которая строит списки смежности для каждой вершины графа на основе его матрицы смежности. Входные данные В первой строке вводится количество вершин графа N ( 1 ≤ N ≤ 1000 ). В следующих N строках записано по N чисел, разделённых пробелами – элементы матрицы смежности графа. Выходные... |
Pascal Программа "Генератор хешей" Здравствуйте. Хочу сделать программу-генератор хешей по алгоритму sha224. Необходимо, чтобы можно было задать диапазон значений (шифруются числовые значения с 31 символом), каждому элементу которого подбирается соответствующее значение хеша с сохранением значений в формате число:хеш. Возможно это реализовать или может есть какие-то готовые решения? Для примера: Задаём диапазон значений от... https://www.cyberforum.ru/ pascal/ thread1914390.html |
Pascal Вычислить значение функции z=arcsin(x+y)
https://www.cyberforum.ru/ pascal/ thread1913933.html Даны действительные числа x,y. Вычислить значение функции z=arcsin(x+y) |
Найти среднее арифметическое элементов массива без учета минимального и максимального элементов массива Pascal Доброго времени суток! Помогите написать программу, которая вычисляет среднее арифметическое элементов массива без учета минимального и максимального элементов массива. |
Pascal Напишите программу,которая выводит на экран круговую диаграмму,отражающую товарооборот в % книж. магазина
https://www.cyberforum.ru/ pascal/ thread1913743.html Ребят помогите исправить ошибки!:read: // program diagram; uses crt; const x:array of string=('Knigi','Zurnaly','Kanctovary','Proctee'); var dr,mode,i,xc,yc,r,detect,initgraph:integer; y:array of real; s:real; |
0 / 0 / 0
Регистрация: 07.02.2017
Сообщений: 2
|
|
0 | |
Напечатать все слова, отличные от последнего слова предварительно преобразовав каждое из них - Pascal - Ответ 1008682207.02.2017, 13:47. Показов 2831. Ответов 1
Метки (Все метки)
Дан текст. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу: 1) оставить в слове только первые вхождения каждой буквы; 2) если слово нечетной длины, то удалить его среднюю букву
помогите так же с составлением блок-схемы и с ее описанием,хочу в этом разобраться.Заранее спасибо Вернуться к обсуждению: Напечатать все слова, отличные от последнего слова предварительно преобразовав каждое из них Pascal
0
|
07.02.2017, 13:47 | |
Готовые ответы и решения:
1
Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них Напечатать слова, отличные от последнего, предварительно преобразовав каждое из них по заданному правилу Напечатать все слова, отличные от последнего слова, предварительно преобразовав их по заданному правилу Дана последовательность слов, напечатать все слова, предварительно преобразовав каждое из них |
07.02.2017, 13:47 | |
07.02.2017, 13:47 | |
Помогаю со студенческими работами здесь
0
Напечатать все слова, отличные от последнего слова, предварительно удалив из каждого слова последнюю букву Вывести слова, отличные от последнего слова, предварительно удалив из каждого слова первую букву Исправить 3адачу: дана строка длиной n символов, Вывести все слова, отличные от последнего слова, предварительно удалив из слов нечетной длины его сре Из последовательности слов напечатать все слова, отличные от последнего слова |