Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа по определению всех делителей числа.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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
Цитата(P!F!B! @ 23.05.2006 19:55) *

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

Условие поставлено нечетко..
klem4 абсолютно прав, если понимать условие буквально, но я все же хочу спросить автора темы: а не имелись ли в виду все простые множители? Если так, то решение будет другим..
Извиняюсь за вторжение - просто проверить на всякий случай..
P!F!B!
Цитата(lapp @ 24.05.2006 1:12) *

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


Нет, всё верно! Задано найти именно сумму всех делителей заданного с клавиатуры числа...
Гость
Найти все целые числа из промежутка от 100 до 300,
у которых сумма делителей равна k(k вводить с клавивтуры)
мисс_граффити
Ну и в чем проблема?
Нашел же старую тему, где практически все уже реализовано...
Sergey
Цитата(мисс_граффити @ 18.02.2007 21:04) *

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

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

Добавлено через 8 мин.
Найти все целые числа из промежутка от 100 до 300,
у которых сумма делителей равна k(k вводить с клавивтуры
написать программу на Pascal
мисс_граффити
ну напиши!
большая часть уже есть (см. сообщение #2). не можешь добавить один цикл?
Sergey
Цитата(мисс_граффити @ 18.02.2007 21:38) *

ну напиши!
большая часть уже есть (см. сообщение #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 ...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.