Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Нужен учебник по framework Где можно прочитать про объекты? Что с ними делать можно и т.п. Да и вообще есть какой-нибудь учебник по framework? https://www.cyberforum.ru/ pascalabc-net/ thread1534392.html Сортировка одномерного массива, где ошибка в задаче? PascalABC.NET
Делал Сортировку одномерного массива... по этому примеру: for j:= 1 to N-1 do for i:= 1 to N-j do if N>N then begin t:=a; M:=M; M:=t;
PascalABC.NET Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа Дан массив a(n). Каждый элемент, делящийся на 3, заменить на сумму цифр этого числа. Не могу понять, где ошибка, почему так? var a: array of integer; i,k,n: integer; begin readln(n); for i := 1 to n do begin a := random(100); https://www.cyberforum.ru/ pascalabc-net/ thread1534284.html PascalABC.NET Найти удельные веса и названия всех полупроводников https://www.cyberforum.ru/ pascalabc-net/ thread1534135.html
Собственно задача. Сведения о веществе состоят из его названия, удельного веса и проводимости (проводник, полупроводник, изолятор). Дан набор, состоящий из 100 таких сведений. Найти: а) удельные веса и названия всех полупроводников выбрать сведения о проводниках и упорядочить их по убыванию б) удельных весов.
PascalABC.NET Найти, сколько элементов массива удовлетворяют условию
Задав одномерный массив целочисленных данных А в одном из заданных форматов (BYTE, WORD, SHORTINT, INTEGER или LONGINT), реализовать обработку массива, как указано в варианте. Длина массива N<=20. Исходные данные задать самостоятельно, учитывая формат элементов массива A. В МОЕМ СЛУЧАЕ WORD; Найти, сколько элементов массива A={a} удовлетворяют условию: с <= a <= d. выдает ошибку, что...
PascalABC.NET Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними Задание: Определите длину третьей стороны треугольника по координатам двух сторон и углу между ними (угол задается в радианах) ___ По каким формулам это нужно находить? https://www.cyberforum.ru/ pascalabc-net/ thread1533614.html
PascalABC.NET Определить количество слов, которые начинаются и заканчиваются одинаковым символом https://www.cyberforum.ru/ pascalabc-net/ thread1532983.html
Дано предложение, слова в нем разделяются пробелом, в конце стоит точка. Определить количество слов, которые начинаются и заканчиваются одинаковым символом.
Определить количество цифр в записи числа, кратных двум PascalABC.NET
С клавиатуры вводится длинное целое число, не менее 50 цифр. Определить, количество цифр в записи числа кратных двум.
PascalABC.NET Как встроить таймер в часы https://www.cyberforum.ru/ pascalabc-net/ thread1532973.html
Здравствуйте. Задание такое, написать на pascalABC, часы с таймером, сами часы есть, но вот, как встроить туда таймер? Как всё это сделать визуально, не знаю. Помогите. Вот сами часы: Program Watch; uses GraphABC,System; begin Font.Size := 80;
PascalABC.NET Чем заменить 25 однотипных переменных https://www.cyberforum.ru/ pascalabc-net/ thread1532835.html
Необходимо в разделе переменных var задать 25 переменных с индексами. name1, name2, name3... и так до 25. Как записать коротко, чтобы не писать все 25 переменных?
PascalABC.NET Вычислить сумму конечного ряда
Вычислить сумму конечного ряда: S = 1+1/2+1/3+...+1/50, Вывести числа в интервале от 10 до 100, кратные 3
PascalABC.NET Слова в тексте разделены пробелами. С каких букв начинаются слова? https://www.cyberforum.ru/ pascalabc-net/ thread1532567.html
Слова в тексте разделены пробелами. С каких букв начинаются слова?
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
20.09.2015, 17:59 0

Найти число от 1 до n с максимальной суммой делителей - PascalABC.NET - Ответ 8094325

20.09.2015, 17:59. Показов 1919. Ответов 2
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Program b;
var n,i,j,k,max,maxn:Integer;
begin
readln(n);
max:=1;
maxn:=1;
for i:=2 To n Do
 begin
  k:=2;//1 и само 
  for j:=2 to trunc(sqrt(i)) do//считаем делители до корня из числа и умножаем на 2
  if i mod j=0 then inc(k,2);
  if frac(sqrt(i))=0 then dec(k);//если число полный квадрат, то минус 1
  if k>max then
   begin
    max:=k;
    maxn:=i;
   end;
  end;
write(maxn);
end.
до 1 000 000 считает сравнительно долго, но более быстрого алгоритма не знаю.

Вернуться к обсуждению:
Найти число от 1 до n с максимальной суммой делителей PascalABC.NET
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.09.2015, 17:59
Готовые ответы и решения:

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

Найти натуральное число от 1 до 10000 с максимальной суммой делителей.
Условие задачи: Найти натуральное число от 1 до 10000 с максимальной суммой делителей. код есть,но...

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

На отрезке [2, n] определить число с максимальной суммой делителей.
На отрезке определить число с максимальной суммой делителей.

2
20.09.2015, 17:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.09.2015, 17:59
Помогаю со студенческими работами здесь

Найти число с максимальной суммой делителей
Хелп плиз :) Нужна прога, которая находит натуральное число от 1 до 10000 с максимальной суммой...

Найти число с максимальной суммой делителей
Дано число N. Найти число из диапазона от 1 до N с максимальной суммой делителей (включая непростые...

Найти число с максимальной суммой делителей
Циклы. В диапазоне найти число с максимальной суммой делителей

В диапазоне найти число с максимальной суммой делителей
в диапазоне найти число с максимальной суммой делителей

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru