0 / 0 / 1
Регистрация: 05.02.2014
Сообщений: 57
1

Для натурального числа n посчитать сумму всех чисел, на которые n делится без остатка

09.07.2014, 11:10. Показов 9556. Ответов 2
Метки нет (Все метки)

Как и многие другие девочки, Маша любит разные гадания. Некоторое время назад Маша узнала новый способ гадать на числах – для какого-нибудь интересующего ее натурального числа n надо посчитать сумму всех чисел, на которые n делится без остатка. Маша не очень любит арифметику, и попросила вас написать программу, которая автоматизирует процесс гадания.
Входные данные:
Во входном потоке в первой строке задано натуральное число N (N <= 1000).

Выходные данные:
Вывести единственное число

Пример входного файла (input.txt):
6
Пример выходного файла (output.txt):
12
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.07.2014, 11:10
Ответы с готовыми решениями:

Посчитать сумму всех чисел, на которые n делится без остатка
Надо посчитать сумму всех чисел, на которые n делится без остатка. Входные данные В...

Для натурального числа n надо посчитать сумму всех чисел, на которые n делится
Как и многие другие девочки, Маша любит разные гадания. Некоторое время назад Маша узнала новый...

Подсчитать сумму всех чисел, на которые n делится без остатка (n вводится с клавиатуры)
Подсчитать сумму всех чисел, на которые n делится без остатка (n вводится с клавиатуры)

Посчитать сумму всех простых чисел от 1 до N. Простые числа делятся без остатка только на себя или на единицу.
Посчитать сумму всех простых чисел от 1 до N. (N вводиться с клавиатуры) Простые числа делятся без...

2
Модератор
Эксперт Python
1330 / 631 / 203
Регистрация: 23.03.2014
Сообщений: 3,018
09.07.2014, 11:58 2
Вова1230, Имей таки совесть, тут не халявные оценки за дополнительные задачи из школы программиста раздают, а людям помогают, а то решил понимаешь, на шару рейтинг накрутить ничего не делая.
Стыдно.
0
1 / 1 / 2
Регистрация: 07.07.2014
Сообщений: 39
09.07.2014, 12:33 3
Лучший ответ Сообщение было отмечено Вова1230 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
Var i,x,y,n:integer;
Begin
 Readln(n);
 y:=0;
 for i:=1 to n do begin 
 if n mod i=0 then y:=y+i;
 end;
 writeln(y);
 end.
вроде работает)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2014, 12:33

Вывести все целые числа В, для которых А делится без остатка на В*В и не делится без остатка на В*В*В
Кто может решите пожалуйста задачу с помощью циклов. Задание 4: Пользователь вводит любое целое...

Найти все целые числа b, для которых а делится без остатка на b^2 и не делится без остатка на b^3
Пользователь вводит любое целое число а. Необходимо вывести все целые числа b , для которых а...

Найти сумму всех чисел, которые делят N без остатка.
подскажите пожалуйста алгоритм: Найти сумму всех чисел, которые делят N без остатка.

Для N целых чисел, которые вводятся с клавиатуры, определить сумму и кол-во положительных чисел, которые делятся на 6 без остатка
Наро плизз вот такие задачки: 1. Для N целыых чисел, которые вводятся с клавиатуры, определить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.