Использование дополнительных директив стандартных модулей

11.11.2012, 20:21. Показов 350. Ответов 0

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

Студворк — интернет-сервис помощи студентам

Нужно по условию написать программу, которая использует процедуры и функции
(уже написана), работает в оконной среде, использует звук и псевдографику.
Задача
Найдите натуральное число от 1 до 10000 с максимальной суммой делителей.
программа уже написана

Pascal

uses crt;
Function SumDel(I:Integer):Integer;
Var J,S:Integer;
Begin
if i=1 then s:=1
else
 begin
  S:=i+1;
  For J:=2 to I div 2 Do
  If I Mod J = 0 Then S:=S+J;
 end;
SumDel:=S;
End;
 
Var I,Max,imx:Integer;
Begin
clrscr;
Max:=1; 
imx:=1;
For I:=2 to 10000 Do
If SumDel(I) > Max Then
 begin
  Max:=SumDel(i);
  imx:=I;
 end;
WriteLn('Максимальная сумма делителей=',Max,' у числа ',imx);
ReadLn;
End.

Кто-нибудь помогите.если есть вопросы по задаче спрашивайте.

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.11.2012, 20:21

Ответы с готовыми решениями:

Модули. Использование стандартных модулей. Работа с модулем Graph
Исследовать область определения функции и построить график функций

10 стандартных модулей
напишите пожалуйста 10 стандартных модулей и как они работают

Назначение и использование директив компилятора
Помогите пожалуйста найти реферат!!!

Расположения файлов стандартных модулей
Есть место хранения стандартных модулей в формате .pas? Или только .pcu? Нужен код одного модуля на...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.11.2012, 20:21

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

Подключение дополнительных модулей и работа с функциями из этих модулей
Опять с вопросами после частично прочитанной книги "C++ Для Чайников". ) Сейчас пытаюсь понять как...

Использование директив препроцессора-С
Напишите программу на СИ. С помощью директивы #define вычислить X^3, при X = -2,-1,...,2.

Использование директив препроцессора
Составить программу, использующую директивы препроцессора: с помощью директивы #define вычислить...

Использование директив EXTRN и PUBLIC
У меня вот такой вопрос, я использую директивы EXTRN и PUBLIC, пытаюсь запустить пример, который...

Добавление дополнительных модулей к проекту.
Привет, задаю очень простой вопрос, т.к. на VB опыта програмирования не имею, то он многим...

Скрипт установки дополнительных модулей
Добрый день. Сразу скажу, что про perl слышал только то, что он умер :). Задача: перенос некоего...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх