Question

Даю 35 баллов !!!!
Написать программу на языке программирования в паскале:
Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K?(K вводится с клавиатуры)​

Answer 1

var i,k,j,s:integer;

begin

  readln(k);

  FOR I:=100 TO 300 DO

  begin

     s:=0;

     for j:=1 to i do

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

     if s=k then writeln(i);

 end;

end.