Найти все целые числа из промежутка от 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.083 из 5
Похожие ответы