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 Слова в тексте разделены пробелами. С каких букв начинаются слова?

-Юрий-

0 / 0 / 1

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

Сообщений: 13

20.09.2015, 18:29 [ТС]

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

20.09.2015, 18:29. Показов 1919. Ответов 2

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

Ответ

Спасибо, но я уже нашел ошибку
Вот код который меньше чем за секунду считает)

Pascal

Program b;
Var
n,i,j,max,maxn:Longint;
a:Array[1..1000000] Of Longint;
BEGIN
      Readln(n);
      j:=1;
      For i:=1 To n Do
        a[i]:=1;
      For i:=2 To n Do
        Begin
              j:=i;
              While j<=n Do
              Begin
                a[j]:=a[j]+i;
                j:=j+i;
              End;
        End;
      max:=a[1];
      maxn:=1;
      For i:=1 To n Do
        If (a[i]>max) Then
        Begin
              max:=a[i];
              maxn:=i;
        End;
      Writeln(maxn);
END.

Вернуться к обсуждению:
Найти число от 1 до n с максимальной суммой делителей PascalABC.NET

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

20.09.2015, 18:29

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

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

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

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

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

	20.09.2015, 18:29

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

20.09.2015, 18:29

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

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

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

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

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

Наверх