Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
alexey23
0 / 0 / 0
Регистрация: 15.08.2016
Сообщений: 6
#1

Пусть заданное целое число...

07.09.2010, 16:49. Просмотров 956. Ответов 2
Метки нет (Все метки)

Так как я не очень знаю паскаль, то прошу наших многоуважаемых программистов помочь с решением задачи

Условие: Пусть заданное целое число. Найти к нему ближайшее совершенное число.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.09.2010, 16:49
Ответы с готовыми решениями:

Представить заданное целое число от 1 до 10 в римской системе счисления
Добрый люди, помогите пожалуйста с написание программы,сама не совсем понимаю в...

Цикл: Найти наибольшее положительное целое число n, для кого выполняется заданное условие
Использовать оператор цикла с ПОСТУСЛОВИЕМ. Найти наибольшее положительное...

Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 3K < N.
Дано целое число N (&gt; 1). Найти наибольшее целое число K, при котором...

Описать логическую функцию, которая проверяет, является ли заданное целое число "k" степенью некоторого числа p.
Описать логическую функцию, которая проверяет, является ли заданное целое число...

Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и 2*4*...*n для четного n. Вычислить n!!
Пусть n - натуральное число и пусть n!! означает 1*3*5*...*n для нечетного n и...

2
iama
1326 / 979 / 119
Регистрация: 30.07.2010
Сообщений: 5,297
07.09.2010, 17:01 #2
Лучший ответ Сообщение было отмечено как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var n, i: longint;
const MAX = 100000;
function s(p: longint): boolean;
var s, i: longint;
begin
s := 0;
for i := 1 to p - 1 do
  if p mod i = 0 then
   s := s + i;
if s = p then
  Result := true
else Result := false;
end;
 
begin
readln(n); i = 0;
while (not s(n+i)) or (not s(n-i) or (i > MAX)) do inc(i);
if s(n+i) then write(n+i)
else write(n-i);
readln;
end.
2
ShamanX
0 / 0 / 1
Регистрация: 05.09.2010
Сообщений: 15
07.09.2010, 17:03 #3
Спасибо, у меня похожая задачка)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.09.2010, 17:03

Дано целое число N(>1) вывести на именьшее целое K,при котором выполняется неравенство
Дано целое число N(&gt;1) вывести на именьшее целое K,при котором выполняется...

Дано целое число N (> 1). Вывести наибольшее целое K...
Дано целое число N (&gt; 1). Вывести наибольшее целое K, при котором выполняется...

Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к 12) и целое число n (номер года). Если окажется, что введенные даные не
Указать количество дней месяца, если дано номер месяца - а (целое число от 1 к...


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

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

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