|
|
| Другие темы раздела | |
|
Turbo Pascal Написать рекурсивную функцию нахождения количества четных элементов в массиве
https://www.cyberforum.ru/ turbo-pascal/ thread527097.html Написать рекурсивную функцию нахождения количества четных элементов в массиве |
Turbo Pascal Вычислить последовательно справа налево. Ряды. Pascal. Даны действительное число а и натуральное число n. Вычислить последовательно слева направо и справа налево. |
|
Turbo Pascal Построить синтаксический анализатор
https://www.cyberforum.ru/ turbo-pascal/ thread527043.html Кто может помогите |
Turbo Pascal как правильно передать значение функции в последующие процедуры во входных параметрах.
https://www.cyberforum.ru/ turbo-pascal/ thread527021.html у меня есть код программы в которой нужно упорядочить строки матрицы построчно по возрастанию.я сделала из нее программу с процедурами и функциями.с помощью функции я ввожу размер матрицы и не знаю как правильно передать значение функции в последующие процедуры во входных параметрах. Program fgh; Const N=5; M=10; type mas=array of integer; var matr:mas; |
|
Turbo Pascal Составить программу решения линейного неравенства Составить программу решения линейного неравенства ax<b. |
Turbo Pascal Составить программу решения линейного уравнения Составить программу решения линейного уравнения ax=b. https://www.cyberforum.ru/ turbo-pascal/ thread526970.html |
|
Turbo Pascal Найти значение функции при заданном значении аргумента.
https://www.cyberforum.ru/ turbo-pascal/ thread526857.html Помогите пожалуйста |
не упакованные множества, задача Turbo Pascal нужно написать програму, которая считывает масив с исходного файла, делает над ним операции объединения,пересечение,разности и симетрической разности, конечные результаты записать в выходной файл. названия файлов задаются как 1 и 2 параметр. uses crt; const n=1000; type setbool=array of boolean; procedure Reading(var inff:text; var s:setbool); var i:integer; x:byte; begin ... |
|
Turbo Pascal Определить периметр правильного n-угольника, описанного около окружности радиуса r
https://www.cyberforum.ru/ turbo-pascal/ thread526817.html ЗДРАВСТВУЙТЕ! ПОМОГИТЕ!!! :wall:НУЖНО СРОЧНО РЕШИТЬ , Я НЕ УСПЕВАЮ! А ТО МНЕ КОПЕЦ.=-O 1.Определить периметр правильного n-угольника, описанного около окружности радиуса r. 2.Создать программу, которая определяет день недели при введении даты. |
Turbo Pascal Перечислить все натуральные числа не превосходящие заданного N Перечислить все натуральные числа не превосходящие заданного N, в двоичном представлении которых номера ненулевых разрядов образуют арифметическую прогрессию. Помогите доделать, он не до конца правильные ответы выводит. допустим он должен выводить число 1001001001001, но не число 10010010000000 вот моё решение: uses crt; const zn:string='01'; procedure DecBin(n:integer;var s:string);... https://www.cyberforum.ru/ turbo-pascal/ thread526750.html |
|
Проблема с числами Turbo Pascal Здравствуйте. Уважаемые программисты! Помогите решить следующую проблему: После многократного запуска данной программы var v,x,y,f:extended; n,i,z,integer; koordinati:text; begin assign(koordinati,'graphik.txt'); rewrite(koordinati); randomize; |
Turbo Pascal Вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет
https://www.cyberforum.ru/ turbo-pascal/ thread526709.html вывести фамилии, имена и отчества всех студентов мужского пола, старших 18 лет. Должна вводиться информация о студентах(фамилии, имена, отчества, пол, возраст). |
|
1 / 1 / 0
Регистрация: 24.03.2012
Сообщений: 35
|
|
| 24.03.2012, 20:34 [ТС] | 0 |
Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. - Turbo Pascal - Ответ 283163124.03.2012, 20:34. Показов 6732. Ответов 2
Метки (Все метки)
Ответ
Спасибо большое!
Вернуться к обсуждению: Вывести на экран все четырехзначные числа, у которых сумма первых двух цифр равна сумме последних, а также их количество и сумму. Turbo Pascal
0
|
|
|
|
| 24.03.2012, 20:34 | |
|
Готовые ответы и решения:
2
|
| 24.03.2012, 20:34 | |
|
Помогаю со студенческими работами здесь
0
|