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

Ответ

Автор - bezzubikkk

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

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.