Все о Pascal
Главная
Вход
Регистрация
Суббота, 18.05.2024, 10:45Приветствую Вас, программист Гость | RSS
Меню сайта

Категории раздела
Уроки Pascal [36]
Мемы - "Типичный программист" [1]
Задачи [10]
Заработок в интернете [14]
Олимпиадные задчи [1]

Наш опрос
Оцените мой сайт
Всего ответов: 249

Статистика

Форма входа

Главная » Статьи » Задачи

Гадание

Гадание

(Время: 1 сек. Память: 16 Мб Сложность: 13%)

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

Входные данные

В единственной строке входного файла INPUT.TXT записано натуральное число n (n ≤ 1000), которое Маша была вынуждена сообщить.

Выходные данные

В выходной файл OUTPUT.TXT выведите сумму всех натуральных делителей числа n.

Примеры

INPUT.TXTOUTPUT.TXT
1612
21018

Категория: Задачи | Добавил: yurabobr1 (14.11.2012)
Просмотров: 1389 | Теги: output.txt, Гадание, задачи паскаль, задачи pascal, pascal, input.txt, Маша | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Поиск

Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz


  • Copyright MyCorp © 2024