Question

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна К (К вводится с клавиатуры). Для pascal, через цикл.

Answer 1

var
k,i: integer;
begin
readln(k);
for i:=100 to 300 do
if i mod k=0 then writeln(i);
end.