Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal подпрограммы проверьте, есть ли в матрице A(n,n) строки не содержащие более 2-х отрицательных элементов. Для проверки строки используйте подпрограмму. https://www.cyberforum.ru/ pascal/ thread144172.html	тип ограничения Pascal собственно что это такое?
Pascal Найти все симметричные натуральные числа из промежутка от A до B https://www.cyberforum.ru/ pascal/ thread144165.html Найти все симметричные натуральные числа из промежутка от A до B ( А и B вводятся с клавиатуры)	Pascal ребят у меня зачет по инф, просто не успеваю :(( Pascal program max_num; type mas=array of byte; var a: mas; num, i: byte; max: byte; begin {блок заполнения} for i:=l to 7 do readln(a); {поиск максимального и его номера} https://www.cyberforum.ru/ pascal/ thread144164.html
Распечатайте все отчества по алфавиту Pascal Помогите доработать Пусть текст предстовляет собой последовательность строк. На каждой строке находится имя, фамилия и отчество. Распечатайте все отчества по алфавиту, а также текст, содержащий строки, состоящий толька из имен и фамилий. Uses wincrt; const n=2; var f:array of string;	Pascal Действительная матрица. Найти наименьшее из значений элементов, расположенный в заштрихованной части матрицыю Дана Действительная матрица С. Найти наименьшее из значений элементов, расположенный в заштрихованной части матрицы. Найти сумму элементов главной диагонали. Оссуществить два способа ввода матрицы ( по желанию пользователя): ввод с клавиатуры и задание элементов случайным способом. на печать вывести - исходную матрицу, найденную сумму значение найденного максимального элемента и его индексы. Если... https://www.cyberforum.ru/ pascal/ thread144154.html
Pascal Составить программу, которая по номеру дня в году выводит число и месяц в общепринятой форме https://www.cyberforum.ru/ pascal/ thread144149.html Составить программу, которая по номеру дня в году выводит число и месяц в общепринятой форме (например, 33-й день года — 2 февраля).	Pascal Определить количество нулей, идущих подряд в младших разрядах данного числа. Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах данного числа. Пример. N = 1 020 000. Количество нулей равно четырем.
Pascal Используя все цифры от 1 до 9 по одному разу и операции сложения и вычитания, получить в сумме 100... Используя все цифры от 1 до 9 по одному разу и операции сложения и вычитания, получить в сумме 100, при условии, что цифры появляются в возрастающем или убывающем порядке. Например, 123 + 4 - 5 + 67 - 89 = 100, 9 – 8 + 76 – 5 + 4 + 3 + 21 = 100. https://www.cyberforum.ru/ pascal/ thread144146.html	Pascal Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение. Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наименьшее значение. Пример. N = 4548. Количество цифр с наименьшим значением равно двум (две цифры 4). https://www.cyberforum.ru/ pascal/ thread144144.html
Напечатать все простые числа из диапазона [2, n]. Pascal Дано целое n > 2. Напечатать все простые числа из диапазона .	Pascal Указатели. Динамическая память. 1)Заданы три натуральных числа А, В, С, которые обозначают число, месяц и год. Найти порядковый номер даты, начиная отсчет с начала года. 2)Дано натуральное число N (N > 9). Определить сумму цифр в первой половине числа (старшие разряды). Пример. N = 12 345 678. Сумма составляет 1 + 2 + 3 + 4 = 10. https://www.cyberforum.ru/ pascal/ thread144142.html

RunLI

0 / 0 / 1

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

Сообщений: 4

02.10.2010, 14:40

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

02.10.2010, 14:40. Показов 5258. Ответов 1

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

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

Решение

Нилина ты ?

Pascal

var n,sum,tmpsum,k,i:integer;
 
   function sumdel(a:integer):integer;
    var i:integer;
     begin
      result:=0;
      for i:=2 to (a div 2) do
       if a mod i=0 then
        result:=result+i;
     end;
 
   begin
 write('BBEDUTE ');
 readln(n);
 sum:=0;
 k:=2;
 for i:=3 to n do
 begin
   tmpsum:=sumdel(i);
   if (sum<tmpsum) then
   begin
    k:=i;
    sum:=tmpsum;
   end;
 end;
 writeln(k);
 readln;readln;
 end.

Вернуться к обсуждению:
На отрезке [2, n] определить число с максимальной суммой делителей. Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.10.2010, 14:40

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

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

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

Вывести число n с максимальной суммой делителей
дан промежуток от 2 до n вывести число n с максимальной суммой делителей

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

	02.10.2010, 14:40

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.10.2010, 14:40

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

Найти число от 1 до n с максимальной суммой делителей
Должно работать для n<=1 000 000 Вот мой код и я не знаю где ошибка... Program b; Var...

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

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

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

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

Наверх