Можно программу на языке паскаль ":) Составить программу нахождения суммы всех делителей заданного натурального числа N. (Само число и единица включаются в число делителей.) Формат входных данных Входной файл содержит число N (1≤N≤1000 Формат выходных данных Выведите искомую сумму. Примеры: Вход 3 Выход 4
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Составить программувычисления значений мне нужно отправить их сегодня
Автор: ele922009226536
Сколько ячеек содержит диапазонB:4E:5 в электронной таблице
Автор: Alekseeva_Khlistov
Как сделать программу в кумире сложение двух чисел на клавиатуре? !
Автор: VadimovnaIgor
Впрограмме паскаль. выведите такой ряд символов: ааббввггддеежж…яя. вложенные циклы не использовать.
Автор: Федоровна-Васильева
Какое колличество ячеек имеет оперативная память объёмом 2гб?
Автор: Яковчук1911
var sum,i,N:integer; t,t1:text;
begin
assign (t, 'input.txt'); reset(t);
assign (t1, 'output.txt'); rewrite(t1);
read(t,N);
sum:=0;
for i:=1 to N do
if N mod i = 0 then sum:= sum+i;
write(t1,sum);
close(t1)
end.