Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K - Pascal
Формулировка задачи:
помогите с задачей :'(
Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K(K вводится с клавиатуры).
Вот что у меня не получилось, но она не запускается(((В чем ошибка?
program zadacha; var i,j:integer; c,k,s:real; begin writeln('Введите значение k'); readln(k); for i:=100 to 300 do begin s:=0; for j:=1 to 300 do begin if (i mod j)=0 then begin c:=j; s:=s+j; end; if s=k then writeln(i); end; end; readln; end.
Решение задачи: «Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K»
textual
Листинг программы
c,k,s:Longint
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д