С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Циклы,теория чисел,массивы! Здравствуйте :) 1) Циклы: Дана последовательность из N произвольных целых чисел.Написать прогамму, которая определяет , сколько в этой последовательности отрицательных чисел, кратных 7. 2) Теория чисел: Найти сумму цифр числа и первую цифру числа. 3) Одномерные массивы: В одномерном массиве найте те элементы, которые принадлежат отрезку . Вывести их на экран и подсчитать количество. https://www.cyberforum.ru/ pascal/ thread166846.html Pascal создать множественный калькулятор
создать множественный калькулятор. Написать программу, которая выполняет любые действия над конечными множествами.
Pascal Вводится число N. Определить количевство одинаковых и неодинак Вводится число N . Определить, все ли цыфры разные; естли нет, тоговых цыфр в числе. https://www.cyberforum.ru/ pascal/ thread166825.html
Задача №15 Вводится число N . Определить, все ли цыфры разные; естли нет, тогда сколько одинаковых? Число N>0. нужно зделать, пытался через div разбить число на отдельные цыфры, но не получилось и я вовсе запутался....(((
Pascal CRT совместно с Graph Всем добрый вечер! Столкнулся с такой проблемой: работую с модулем Graph, вывожу гистограммы. Хочу создать графическое меню выбора при помощи Crt, но при его подключении искажается всё то, что сделано на Graph. Можно ли как-то отключать модуль Crt пока работает Graph? https://www.cyberforum.ru/ pascal/ thread166802.html
Все отрицательные элементы массива В заменить нулями Pascal
Все отрицательные элементы массива В заменить нулями.Вывести на экран исходный и преобразованный массивы. Исходные величины:N=7 B=(-2,5,7,-4,3,-8,-1)
Pascal вывод ответа =) вот задача как пример. как сделать так чтобы ответ выводился сразу( тоесть не выходило из решения) как понял readln недостаточно . var s:string; i,j,n:integer; begin readln(s); s:=s + copy(s,1,length(s)-1); writeln(s); https://www.cyberforum.ru/ pascal/ thread166800.html
Pascal найти в массивах наименьшие числа Помогите а то ни как не соображу. Дано два массива с целыми числами нужной найти в массивах наименьшие числа и записать их в новый массив. Всё это нужно делать в процидуре:( https://www.cyberforum.ru/ pascal/ thread166792.html Pascal Получение списка папок текущего каталога
возникла проблема. для проги нужна функция, возвращающая список папок текущего каталога. то есть (к примеру) если прога лежит в корневом каталоге диска D то функция должна вернуть Music Games и т.д... тоесть аналог FindFirst но только для папок. есть ли такая дефолтная функция?
Pascal Поменять между собой значения двух переменных, не используя третьей переменной Привет, мне вот нужна ваша помощь: 1) "Нужно поменять между собой значения двух переменных, не используя третей переменной." 2)"Определите значение логического выражения, утверждающего, что из двух чисел a и b, одно четное, другое нечетное" может это и легкие задания, но как для совсем начинающего они мне не понятны. https://www.cyberforum.ru/ pascal/ thread166760.html Pascal Организация модулей https://www.cyberforum.ru/ pascal/ thread166751.html
есть программа https://www.cyberforum.ru/pascal/thread164648.html нужно разбить ее на 2 модуля: первый - описание типов массивов, второй - организация матрицы, и главная програма так вот: 1 модуль: Unit Glob; Interface
Метод Крамера надо доделать . Pascal
Program ll; uses crt; procedure Kramer(var k2,k3,k4,k6,k7,k8,k10,k11,k12,k14,k15,k16:real); var x,y,z,D,Dx,Dy,Dz:real; begin D:=(k2*k7*k12)+(k4*k6*k11)+(k3*k8*k10)-(k4*k7*k10)-(k2*k8*k11)-(k3*k6*k12); if D<>0 then Dx:=(k14*k7*k11)+(k8*k10*k15)+(k6*k11*k16)-(k7*k10*k16)-(k15*k6*k12)-(k14*k8*k11); Dy:=(k2*k15*k12)+(k3*k16*k10)+(k4*k14*k11)-(K4*k15*k10)-(k3*k14*k12)-(k2*k16*k11); ...
Pascal Сформировать матрицу по правилу https://www.cyberforum.ru/ pascal/ thread166685.html
составить программу, которая заполняет квадратную матрицу порядка n натуральными числами 1, 2, 3, ... , n^2, записывая их в нее "по спирали". Например, для n=5 получаем следующую матрицу: 1 2 3 4 5 16 17 18 19 6 15 24 25 20 7 14 23 22 21 8 13 12 11 10 9
0 / 0 / 0
Регистрация: 01.05.2010
Сообщений: 6
18.09.2010, 11:31  [ТС] 0

наименьший и наибольший делитель числа - Pascal - Ответ 965704

18.09.2010, 11:31. Показов 13606. Ответов 5
Метки (Все метки)

Ответ

Puporev, 1 и само число это само собой разумеется (так что эти делители исключаются).Сорри за плохую формулировку вопроса.

Добавлено через 21 минуту
К примеру для 12 Наименьший=2, наибольший=6, для 9 наименьший=3, наибольший=3

Вернуться к обсуждению:
наименьший и наибольший делитель числа Pascal
0
Заказать работу у эксперта
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.09.2010, 11:31
Готовые ответы и решения:

Даны натуральные числа М и N. Определить их наибольший общий делитель и НОК
Ребят, помогите с задачами, только без использования процедур: 4. Даны натуральные числа М и N....

Даны действительные числа а1,а2, . . . ,аn. Поменять местами наибольший и наименьший элементы.
Помогите пожалуйста

Вывести наименьший делитель данного числа
На вход подаётся целое число , большее 1.Вывести наименьший делитель данного числа, больший 1.

Найти наименьший делитель числа, отличный от 1
Дано натуральное число. Найти его наименьший делитель, отличный от 1. Вот я сделал программу:...

5
18.09.2010, 11:31
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.09.2010, 11:31
Помогаю со студенческими работами здесь

Вывести наименьший простой делитель натурального числа Т
составьте программу вывода на экран наименьшего простого делителя натурального. числа Т

Найти наибольший нетривиальный делитель числа
Дано натуральное число. Найти его наибольший нетривиальный делитель или вывести единицу, если...

Найти наименьший делитель числа без остатка, отличный от ноля
Здравствуйте. У меня возникла непонятная мне ситуация с циклами Паскаля: program one; var...

Найти наименьший простой целый делитель числа, вводимого с клавиатуры
Найти наименьший простой целый делитель числа, вводимого с клавиатуры.

Даны натуральные числа a и b. Найти их наибольший общий делитель
Даны натуральные числа a и b. Найти их наибольший общий делитель;

Найти и вывести на экран наибольший нетривиальный делитель числа
Пользователь вводит с клавиатуры натуральное число, найти и вывести на экран наибольший...

0
Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­­­­­­­­­­­­­х­р­о­н­­н­­­ы­­й счётчик с управляющим сигналом зад
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru