Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal найти количество чисел в интервале от 1 до N, делящихся на сумму своих цифр дано число N. найти количество чисел в интервале от 1 до N, делящихся на сумму своих цифр. https://www.cyberforum.ru/ pascal/ thread54992.html	Pascal Список 4. Написать программу, строящую следующую списочную структуру. Каж¬дый элемент списка состоит из трех полей: первое и третье поля ис¬пользуются для связи двух линейных списков и для связи элементов в одном списке, второе - информационное (заполняется вводимой последо¬вательностью целых чисел а1, а2, ... ,аN, 0, аN+1, аN+2, ... ,аN+K, 0, в которой 0 отмечает конец каждого списка числа N и K...
Pascal текстовый файл, замена Задача: Строки текстового файла содержат фамилии студентов в произвольном порядке. Определить порядковый номер байта, с которого располагается первая по алфавиту фамилия. Заменить данную фамилию в исходном файле символами '*', не переписывая этого файла. Всё понятно, только как вот это сделать: Определить порядковый номер байта, с которого располагается первая по алфавиту... https://www.cyberforum.ru/ pascal/ thread54984.html	Pascal зачетная работа. дана квадратная матрица размерностью10.найти сумму элементов побочной диагонали матрицы <-2. найти максимальный элемент побочной диагонали матрицы и его положение в массиве. отсортировать элементы главной диагонали по убыванию. вывести результативную матрицу на экран. помогите пожалуйста!!! https://www.cyberforum.ru/ pascal/ thread54982.html
Pascal составить рисунок на паскале с помощью массива помогите пожалуйста составить рисунок на паскале с помощью массива( рисунок н-р цветок..или еще что то) const=15;m=20; var array of char; i,j,c:word; Begin for i:=1 to n do for j:=1 to m do if (j>=1) and (i<=5) then a:='0'; for i:=6 to n do for j:=1 to m do if (j<=15) and (i<=10) then a:='1'; for i:=11 to n do	Pascal Рекурсия. https://www.cyberforum.ru/ pascal/ thread54977.html Здравствуйте, помогите найти решение задачи, а то я совсем не понимаю условие (Задача должна быть решена при помоши Рекурсивных процедур и функций) 1) Имеется n населенных пунктов, перенумерованные от 1 до n(n-10). Некоторые пары пунктов присоединены к дорогам. Определить, можно ли попасть по этим дорогам из 1-го пункта в n-й. Информация о дорогах задается в виде последовательности пар чисел i...
Pascal массивы Помогите решить задачку: Вывести массив из m строк и n столбцов в виде матрицы в заднное пользователем координатами и размером окною Все элементы массива должны выводится через пробел, с установленным пользователем цветом символов и фона окна. После окончания работ программы перейти к стандартному размеру экрана, фону и цвету символов. https://www.cyberforum.ru/ pascal/ thread54972.html	Нахождение максимального элемента в массиве. Pascal Решите задачку пожалуйста. Найдите максимальный элемент в массиве.
Pascal решение без использования переменных как реализовать это без использования переменных??? var a:integer; Begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(a); write(a); end. https://www.cyberforum.ru/ pascal/ thread54966.html	Pascal Найти периметр и площадь треугольника через объектно ориентированное программирование Найти периметр и площадь треугольника через объектно ориентированное программирование https://www.cyberforum.ru/ pascal/ thread54960.html
Pascal Пифагоровы числа Всем привет. Есть задача. Написать программу, которая находит и выводит на экран все пифагоровы числа в диапазоне от 1 до 20. Три числа называются пифагоровы, если выполняется равенство c^2 = a^2 + b^2 Не имею представления как это организовать. Каков алгоритм? например 5 чисел есть: 1,2,3,4,5. Берем 1^1=2^2+3^3 проверяем? А потом проверяем 1^1=2^2+4^4 это выражение? Мне бы в двух словах...	Pascal Найти сумму и произведение ряда https://www.cyberforum.ru/ pascal/ thread54957.html Дана действительная матрица размерами MN. Найти х(1)х(m)+x(2)x(m-1)+...x(m)x(1), где х(i) - разность между максимальным и минимальным элементом i-й строки. Поиск макс. и мин. элемента осуществить с помощью функции.

Fairix

26.04.2010, 10:33

Найти натуральное число в интервале от1 до 1000 с максимальной суммой делителей - Pascal - Ответ 686554

26.04.2010, 10:33. Показов 5581. Ответов 1

Метки (Все метки)

Сообщение было отмечено ренат алламов как решение

Решение

неахти с массивами, потому так:

Pascal

program natsum;
 
uses crt;
 
var i,f,k,imax,kmax:integer;
 
begin
 
clrscr;
 
kmax:=1;
 
imax:=1;
 
for i:=1 to 10000 do
 
begin
 
k:=0;
 
for f:=1 to i do
 
begin
 
if (i mod f=0) then k:=k+f;
 
end;
 
if kmax<k then
 
begin
 
kmax:=k;
 
imax:=i;
 
end;
 
end;
 
 
writeln('Число с максимальной суммой делителей= ',imax);
 
writeln('Cумма делителей= ',kmax);
 
end.

Вернуться к обсуждению:
Найти натуральное число в интервале от1 до 1000 с максимальной суммой делителей Pascal

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

26.04.2010, 10:33

Готовые ответы и решения:

Найти натуральное число в интервале от 1 до N с максимальной суммой делителей
Дано натуральное число N. Найти натуральное число в интервале от 1 до N с максимальной суммой...

Найти натуральное число максимальной суммой делителей
Найти натуральное число n. Найти натуральное число от 1 до n с максимальной суммой делителей.

Найти натуральное число с максимальной суммой делителей
Найти натуральное число в диапазоне от 1 до n с максимальной суммой делителей.

Найти натуральное число с максимальной суммой делителей
натуральное число с максимальной суммой делителей

	26.04.2010, 10:33

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

26.04.2010, 10:33

Помогаю со студенческими работами здесь

Найти натуральное число из интервала от a до b с максимальной суммой делителей
Найти натуральное число из интервала от a до b с максимальной суммой делителей.

Найти натуральное число из интервала от a до b с максимальной суммой делителей
Оформите эти 2 задачи в виде GUI приложений. :) буду очень благодарен ребята помагите пожалуйста ...

Найти натуральное число от 1 до 10000 с максимальной суммой делителей
Найти натуральное число от 1 до 10000 с максимальной суммой делителей. Написать программу, очень...

Найти натуральное число от 1 до 10000 с максимальной суммой делителей
найти натуральное число от 1 до 10000 с максимальной суммой делителей. program tmt; var ...

Новые блоги и статьи
Распознавание изображений (компьютерное зрение) на C++ InfoMaster 20.01.2025 Введение в компьютерное зрение и основы работы с изображениями Компьютерное зрение представляет собой одну из наиболее динамично развивающихся областей информационных технологий, позволяющую. . .	Какой язык программирования лучший для разработки нейронных сетей InfoMaster 20.01.2025 В современном мире технологий искусственные нейронные сети становятся неотъемлемой частью множества инновационных решений, от распознавания речи до автоматического управления транспортными. . .	Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .	Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .

Наверх