Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х

@xxxmorgan · Регистрация: 23.02.2011

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

Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма делителей данного числа больше заданного числа Х, сделать с помощью процедуры пользователя.

@Puporev · 23.02.2011, 10:32

Pascal

uses crt;
function Summ(a,x:integer):boolean;
var s,i:integer;
begin
s:=0;
for i:=1 to a do
if a mod i=0 then s:=s+i;
Summ:=s>x;
end;
var a,b,x,i,k:integer;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел:');
readln(a,b);
until(a>0)and(b>a);
write('Введите число для сравнения сумм делителей x=');
readln(x);
writeln('Числа с суммой делителей, большей ',x);
k:=0;
for i:=a to b do
if Summ(i,x) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then writeln('Таких чисел нет');
readln
end.

@xxxmorgan 0 / 0 / 0 Регистрация: 23.02.2011 Сообщений: 4
		1
	Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х 23.02.2011, 00:07. Показов 1232. Ответов 1 Метки нет (Все метки) Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых больше заданного числа Х. Проверку, является ли сумма делителей данного числа больше заданного числа Х, сделать с помощью процедуры пользователя. 0

	23.02.2011, 10:32

Опции темы

Найти те числа данного отрезка, суммы делителей которых больше заданного числа Х

Решение