|
|
Другие темы раздела | |
Turbo Pascal Обменять минимальный и максимальный элемент матрицы
https://www.cyberforum.ru/ turbo-pascal/ thread2367855.html Важно использовать процедуру ввода, вывода матрицы, поиска минимального, максимального элемента и их обмена. Все работает, кроме обмена. Помогите, пожалуйста, это исправить. Заранее огромное спасибо. Мой код: uses System.SysUtils; type matr = array of integer; |
Вычислить значения суммы ряда Turbo Pascal Вычислить значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps. Вычисленные значения ряда сравнить со значениями заданной функции f(x). Результаты вычислений вывести в виде таблицы с заголовком. s=\sum_{n=0}^{\infty... |
Turbo Pascal Проверка ввода типа данных в турбо паскале Нужно сделать "защиту от дурака" при вводе данных пользователем , которая не пускала бы дальше , пока не будет введено значение нужного типа , пытался реализовать через Repeat , но когда вводишь число (как и нужно) программа не идет дальше ( застревает на вводе) , помогите пожалуйста Отрывок из программы: program kursovaia; uses crt,graph; const a=10; b=3; m0=9.11e-31; k=8.62e-5; max=5; https://www.cyberforum.ru/ turbo-pascal/ thread2367814.html |
Turbo Pascal Двумерные массивы. Матрица. Наибольший элемент поместит в середине каждой строки
https://www.cyberforum.ru/ turbo-pascal/ thread2367783.html Добрый день! В каждой строке А(K,L), K <= 15, L <= 20 наибольший элемент расположить в середине строки Но программа не всегда правильно работает, хотел бы узнать в чем ошибка const Z = 15; X = 20; var a:array of integer; i,j,n,m,k,jmax,javer:integer; begin write('your N= '); |
В матрице найти произведение отрицательных четных элементов каждой строки Turbo Pascal А также всех отрицательных элементов матрицы. Важно использовать процедуру ввода/вывода матрицы, нахождения произведений отрицательных элементов. Написал код, однако произведение отрицательных элементов равно нулю: Помогите, пожалуйста, это исправить, а также написать процедуру нахождения произведения отрицательных элементов каждой строки. Заранее огромное спасибо. Вот мой код: uses ... |
Turbo Pascal Решить уравнение, используя рекуррентную формулу Ньютона Решить уравнение, используя рекуррентную формулу Ньютона: \sqrt{(2x-3)^2}-\sqrt{4-3x}=5+x https://www.cyberforum.ru/ turbo-pascal/ thread2367632.html |
Turbo Pascal Вводится последовательность. Найти наибольшее из всех отрицательных
https://www.cyberforum.ru/ turbo-pascal/ thread2367627.html Вводится последовательность. Найти наибольшее из всех отрицательных. Использование строковых переменных запрещено |
Turbo Pascal С помощью символьного массива установить, является ли слово палиндромом Помогите решить,пожалуйста!!! С помощью символьного массива установить, является ли слово палиндромом. Пытался сам,но в итоге решил задачу благодаря строкам,а не массивам. Сижу, голову ломаю... program massiv; const n=30 type stroka:string var slovo:stroka; i:byte; otv:boolean; |
Turbo Pascal Копирование и вставка строки с использованием линейных списков
https://www.cyberforum.ru/ turbo-pascal/ thread2367205.html Разработать процедуру копирования группы строк заданного файла длиной N строк от начальной NB до конечной KB в тот же файл после M-ой строки. Нужно использовать линейные списки.Буду очень благодарен за помощь, самому не получается сделать |
Turbo Pascal Создание меню на Pascal 7.0 Помогите в этом шаблоне сделать меню горизонтальным Program Template; Uses Crt; Const kol = 8; { количество элементов меню } Var ch :char;{ код нажатой клавиши } N, { номер выбранного элемента меню } https://www.cyberforum.ru/ turbo-pascal/ thread2367090.html |
Найти максимальный элемент массива Turbo Pascal Дан массив X=(x1,..., xn). Переписать пять первых положительных элементов массива подряд в массив Y=(y1, y2,..., yk). Найти максимальный элемент массива Х. |
Turbo Pascal Методы обработки массивов Напишите программу, которая вводит с клавиатуры 10 реальных чисел, и организовывает их хранение в массиве. После этого массив пересортировывается по закону: первый элемент меняется с последним, второй с предпоследним и т. д. https://www.cyberforum.ru/ turbo-pascal/ thread2366800.html |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
09.12.2018, 14:46 | 0 | |||||
Ввести N чисел, найти произведение чисел кратных 3 - Turbo Pascal - Ответ 1314064709.12.2018, 14:46. Показов 5817. Ответов 1
Метки (Все метки)
Ответ
Вернуться к обсуждению: Ввести N чисел, найти произведение чисел кратных 3 Turbo Pascal
0
|
09.12.2018, 14:46 | |
Готовые ответы и решения:
1
Программа просит ввести число от 1 до 30, затем подсчитать произведение чисел кратных 5 в интервале от 0 до введённого числа Найти произведение всех целых чисел, кратных 5, от а до а+5 Найти произведение двузначных нечетных чисел, кратных 13. Найти произведение первых k натуральных чисел, кратных трём |
09.12.2018, 14:46 | |
09.12.2018, 14:46 | |
Помогаю со студенческими работами здесь
0
Найти произведение четных чисел, кратных трем, из промежутка от (a) до (b) Найти произведение чисел, кратных трем вводимых с клавиатуры Найти произведение количеств вхождений в массив чисел, кратных 2 и 3. Ввести одномерный массив из 10 целых чисел. Найти и напечатать сумму элементов, кратных 2. |