Программа по определению всех делителей числа. Опции

[P!F!B!]

Код

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

[klem4]

...
  readln(n);
  s := 0;
  for i := 2 to n div 2 do
   if n mod i = 0 then inc(s, i);
...

[Lapp]

... сумму всех делителей заданного с клавиатуры числа.

Условие поставлено нечетко..
klem4 абсолютно прав, если понимать условие буквально, но я все же хочу спросить автора темы: а не имелись ли в виду все простые множители? Если так, то решение будет другим..
Извиняюсь за вторжение - просто проверить на всякий случай..

[P!F!B!]

Условие поставлено нечетко..
klem4 абсолютно прав, если понимать условие буквально, но я все же хочу спросить автора темы: а не имелись ли в виду все простые множители? Если так, то решение будет другим..
Извиняюсь за вторжение - просто проверить на всякий случай..

Нет, всё верно! Задано найти именно сумму всех делителей заданного с клавиатуры числа...

[Гость]

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

[мисс_граффити]

Ну и в чем проблема?
Нашел же старую тему, где практически все уже реализовано...

[Sergey]

Ну и в чем проблема?
Нашел же старую тему, где практически все уже реализовано...

Написать программу на Pascal.

Добавлено через 8 мин.
Найти все целые числа из промежутка от 100 до 300,
у которых сумма делителей равна k(k вводить с клавивтуры
написать программу на Pascal

[мисс_граффити]

ну напиши!
большая часть уже есть (см. сообщение #2). не можешь добавить один цикл?

[Sergey]

ну напиши!
большая часть уже есть (см. сообщение #2). не можешь добавить один цикл?

program vibor;
Uses Crt;
var n, i, c: Integer;
Begin
clrscr;
for n := 100 to 300 do
begin
 c := n;
 for i := 1 to n div 2 do
   if n mod i = 0 then
     Inc(c, i);
 WriteLn;
 WriteLn©;
End;
end.

Правильно?

[volvo]

Ты печатаешь ВСЕ числа, а надо - только те, у которых сумма делителей равна K ...