|
|
Другие темы раздела | ||||||||||||||||||
Free Pascal Максимальная сумма двух элементов последовательности На вход программе подаётся последовательность целых чисел, каждое из которых не превосходит по модулю 2*10^9 . Числа записаны в одной строке через пробел. Признак конца ввода (в последовательность не входит) – число 2,1*10^9. Требуется найти максимальную сумму двух элементов этой последовательности, которые располагаются друг от друга на расстоянии не менее 3 (между ними должно быть как минимум... https://www.cyberforum.ru/ free-pascal/ thread1231194.html |
Free Pascal Определить, во скольких многоугольниках находиться заданный Всем привет!Помогите решить задачу, очень нужно. Кто роможет буду ОЧЕНЬ благодарен.Краткое описание к задачи. Дано: 3 3 -2 1 8 9 12 1 3 7 5 6 3 7 4 4 4 2 7 7 9 3 1 2. Первая цифра-это количество многоугольников. Все первые цифры следуючих рядков-это количество вершин многоугольника. а остальные цифры-это координата вершины. например -2 1 это вершина многоугольника с координатами -2 по Ох и... | |||||||||||||||||
Free Pascal Построение куба с удалением не видимых линий и граней Здравствуйте! Помогите, пожалуйста, с написание программы, часть кода уже готово, но не понимаю две вещи: 1) построение закрашенной фигуры, чувствую, что делаю не так, но вот где ошибка понять не могу. 2) реализация алгоритма Роберста для удаления невидимых линий и граней, если я правильно понял, то нужно найти скалярное произведение вектора наблюденияи вектора нормали грани, и если оно... https://www.cyberforum.ru/ free-pascal/ thread1226726.html |
Free Pascal Построить числовую последовательность и определить, какая цифра стоит в её К-й позиции
https://www.cyberforum.ru/ free-pascal/ thread1226229.html Построить числовую последовательность и определить, какая цифра стоит в её К-й позиции. В последовательность должны быть записаны числа Фибоначчи(112358132134...).Результат вывести на экран и в текстовый файл. Вот задача, но нужно отредактировать: Программа должна просить ввести только К-ю позицию, после чего на экран должна вывестись последовательность с К членами. (т.е. если ввести К=7, то... | |||||||||||||||||
Найти целую часть от деления большего числа на меньшее и определить, является ли палиндромом сумма цифр Free Pascal Заданы два натуральных числа (которые не обязательно имеют одинаковое число цифр). Найти целую часть от деления большего числа на меньшее и определить, является ли палиндромом сумма цифр результата. Пример: Вычислить а^n (где а и n – натуральные числа, а<10) и подсчитать, сколько раз в результате встречается цифра 0. VAR A,N,K,P,I,J,S,PR: INTEGER; C: ARRAY OF INTEGER; BEGIN ... |
Free Pascal Найти все числа, для каждого из которых выполняется условие: кубический корень из числа равен сумме его цифр
https://www.cyberforum.ru/ free-pascal/ thread1225933.html На заданном числовом промежутке требуется найти все числа, для каждого из которых выполняется условие: кубический корень из числа равен сумме его цифр.Пример :На заданном числовом промежутке найти все натуральные числа, которые одновременно являются кубическими и палиндромическими. PROGRAM _9; VAR A, B, Y, X: LONGINT; R,K: BYTE; XX: REAL; {-----------------------------------------} ... | |||||||||||||||||
Free Pascal Выделять слова в предложении
https://www.cyberforum.ru/ free-pascal/ thread1225889.html Как выделить все слова в придложении(добавить в масив).Код программы. И как сравнить эти слова со словами в другом придложении.Например найти 2 одинаковых слова. Как их именно сравнивать Добавлено через 4 минуты Просьба код как для новичка. |
Найти и вывести слово которое встречается в каждом предложении текста Free Pascal Условие задачи:"Найти и вывести слово которое встречается в каждом предложении текста".Плиз можно розказать словесно ход решения или сам код рёшенной задачи | |||||||||||||||||
Free Pascal Вывести 6 рандомных чисел диапазона от 0 до 10 с использованием цикла
https://www.cyberforum.ru/ free-pascal/ thread1225103.html После рандомного числа a выдаёт только одно число c, цикл не повторяется. Задача состоит в том, чтобы вывести 6 рандомных чисел диапазона от 0 до 10 с использованием цикла for ...do. Не могу понять ошибку.program nomber; uses crt; var a, b, c: integer; begin clrscr; randomize; a := random(1) + 3; write(a); for b := 1 to 6 do c := random(10); |
Free Pascal На промежутке найти числа, сумма цифр которых равна корню n-ой степени из этого числа: найти ошибку На заданном числовом промежутке требуется найти все числа, сумма цифр каждого из которых равна корню n-й степени из этого числа, где n - количество цифр числа. Вот все числа: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 81, 512, 2401. Но при вводе, например, промежутка от 600 до 1000 программа "молчит", а надо вывести, мол таких чисел нет. uses crt; var m,n,i,j,sum,step,x: longint; c: integer;... https://www.cyberforum.ru/ free-pascal/ thread1224928.html | |||||||||||||||||
Написать два кода с использованием рекурсии и без неё Free Pascal Написать два кода с использованием рекурсии и без неё: Вычислить значение суммы(значение n вводится с клавиатуры): 1-\frac{1}{3}+\frac{1}{5}-...+\frac{{(-1)}^{n+1}}{2n-1} |
Free Pascal Сумма цифр каждого из которых равна корню n-й степени из этого числа, где n -
Наверх
|