Sandra 2000
Новые
- Регистрация
- 4 Окт 2012
- Сообщения
- 49
- Реакции
- 0
- Баллы
- 0
Использование дополнительных директив стандартных модулей
Нужно по условию написать программу, которая использует процедуры и функции
(уже написана), работает в оконной среде, использует звук и псевдографику.
Задача
Найдите натуральное число от 1 до 10000 с максимальной суммой делителей.
программа уже написана
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.
если есть вопросы по задаче спрашивайте.:tehnari_ru_837:
Нужно по условию написать программу, которая использует процедуры и функции
(уже написана), работает в оконной среде, использует звук и псевдографику.
Задача
Найдите натуральное число от 1 до 10000 с максимальной суммой делителей.
программа уже написана
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.
если есть вопросы по задаче спрашивайте.:tehnari_ru_837:
