35 написать программу на языке программирования в - вопрос №35504802 от пати24 26.04.2021 10:10

Question

Информатика: 35 написать программу на языке программирования в паскале: найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна k? (k вводится с клавиатуры)​

пати24 · Answer

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....