Помогите, задача Паскаль!

В промежутке от 1 до n вывести все числа, сумма делителей которых (включая 1 и не включая само число) равна самому числу.

Question

Информатика

Зинаидка

2 июля, 07:55

Помогите, задача Паскаль!

В промежутке от 1 до n вывести все числа, сумма делителей которых (включая 1 и не включая само число) равна самому числу.

+5

Ответы (1)

Знаете ответ на вопрос?

Гана · Answer 1

Var n, i, j, s:integer;

begin

write ('n=') ; readln (n) ;

for i:=1 to n do

begin

s:=0;

for j:=1 to i div 2 do

if i mod j = 0 then s:=s+j;

if i=s then write (i,' ') ;

end;

writeln;

end.

Помогите, задача Паскаль!В промежутке от 1 до n вывести все числа, сумма делителей которых (включая 1 и не включая само число) равна самому числу.

Помогите, задача Паскаль!

В промежутке от 1 до n вывести все числа, сумма делителей которых (включая 1 и не включая само число) равна самому числу.