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

@ренат алламов · Регистрация: 26.09.2009

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

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

26.04.2010, 10:33

неахти с массивами, потому так:

Pascal

program natsum;
 
uses crt;
 
var i,f,k,imax,kmax:integer;
 
begin
 
clrscr;
 
kmax:=1;
 
imax:=1;
 
for i:=1 to 10000 do
 
begin
 
k:=0;
 
for f:=1 to i do
 
begin
 
if (i mod f=0) then k:=k+f;
 
end;
 
if kmax<k then
 
begin
 
kmax:=k;
 
imax:=i;
 
end;
 
end;
 
 
writeln('Число с максимальной суммой делителей= ',imax);
 
writeln('Cумма делителей= ',kmax);
 
end.

@ренат алламов 0 / 0 / 0 Регистрация: 26.09.2009 Сообщений: 11
		1
	Найти натуральное число в интервале от1 до 1000 с максимальной суммой делителей 07.10.2009, 18:50. Показов 5438. Ответов 1 Метки нет (Все метки) Найти натуральное число в интервале от1 до 1000 с максимальной суммой делителей. 0

	26.04.2010, 10:33

Опции темы

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

Решение