Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
printer
0 / 0 / 0
Регистрация: 20.11.2013
Сообщений: 26
1

Найти ближайшее совершенное число

20.11.2013, 15:14. Просмотров 503. Ответов 2
Метки нет (Все метки)

Добрый день. Помогите пожалуйста написать данную программу:

"Задано целое число N. Найти ближайшее к нему совершенное число"

Программу нужно написать с циклами, массивы использовать нельзя.

Показывал преподу данную программу:
Код
program pro2;

var
   sum: longint;
   a,i: integer;
begin
     writeln('Введите число');
     readln(a);
     for i:=a downto 1 do if a mod i = 0 then sum:=sum+i ;
     writeln ('совершенное число = ', sum);
end.
.
Сказал что она написана неправильно, и что я не понял задания.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.11.2013, 15:14
Ответы с готовыми решениями:

Задано целое число N. Найти ближайшее к нему совершенное число
Задано целое число N. Найти ближайшее к нему совершенное число

Найти ближайшее к 2000 простое число
Найти ближайшее к 2000 простое число. Определить функцию, распознающую простые числа в виде: ...

Функция: простое число, совершенное число, число Фиббоначи, евклид, Факториал, степень.
Срочно нужна ваша помощь. все программы на школьном компе и я их не помню. они нужны срочно.

Найти среди удивительных чисел число, ближайшее к х
некоторое натур. число обладает следующими свойствами: сумма цифр числа n равна k, а сумма числа...

Найти ближайшее "геройское" (в записи не больше 2 различных цифр) число
Известные любители математики братья Никитины постоянно придумывают какие-то головоломки, которые...

2
Samhain
690 / 565 / 413
Регистрация: 31.03.2013
Сообщений: 1,029
20.11.2013, 15:18 2
printer, Пусть заданное целое число...
Задано целое число N. Найти ближайшее к нему совершенное число
0
printer
0 / 0 / 0
Регистрация: 20.11.2013
Сообщений: 26
20.11.2013, 15:28  [ТС] 3
Код
var i,j,s,n : integer;
begin
readln(n);
i:=1;
while true do begin
  s:=0;
  for j := 1 to n+i-1 do
  if (n+i) mod j=0 then s:=s+j;
  if s=(n+i) then 
  begin
    write(n+i);
    break;
  end;
  s:=0;
  for j := 1 to n-i-1 do
  if (n-i) mod j=0 then s:=s+j;
  if s=n-i then 
  begin
    write(n-i);
    break;
  end;
  i:=i+1;
end;
end.
В данной программе есть breack. Нам не разрешают использовать досрочный выход из цикла.
Данные тему находил, но из-за этого не брал.
Помогите пожалуйста в написании
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2013, 15:28

Вывести простое число, ближайшее к заданному N
Здравствуйте, не могли бы помочь решить пару задач на паскале с помощью процедур. Вот условия: 1....

Найти ближайшее к какому-нибудь целому
Объясните, что именно здесь нужно найти. И если можно, то приведите пример. Пусть x1=0,3; x2=-0,3;...

Файл: найти среднее арифметическое, найти число, ближайшее к среднему арифметическому
с помощью датчика случайных чисел создать файл из 40 целых чисел.вывести все четные числа из него....


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

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

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