Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
noskir
0 / 0 / 0
Регистрация: 22.10.2017
Сообщений: 11
#1

Совершенные числа - Turbo Pascal

22.10.2017, 16:34. Просмотров 188. Ответов 4
Метки нет (Все метки)

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

Составить блок-схему: Напечатать все совершенные числа до заданного числа N - Turbo Pascal
Здравствуйте. Помогите пожалуйста составить блок-схемы к задачам. Завтра зачет, без вариантов надо сдать. Обещаюсь научиться всему в...

Напечатать все совершенные числа, меньшие заданного числа N - Turbo Pascal
Натуральное число M называется совершенным, если оно равно сумме всех своих делителей, включая 1, но исключая себя. Напечатать все...

совершенные числа - Turbo Pascal
Короче я сделал вот такую прогу: В числовую перменную последовательно вводятся целые положительные числа. Требуется вывести на экран...

совершенные числа - Turbo Pascal
В интервале от «а» до «b» напечатайте совершенные числа. Совершенным числом называется число, равное сумме всех своих делителей, меньших...

Совершенные числа - Turbo Pascal
Знаю, в сайбере есть прога на эту тему, но я не для этого. Я составил прогу, где нужно ввести число, до которого будут находиться...

простые и совершенные числа - Turbo Pascal
Помогите пожалуйста! 1.нужно посчитать все совершенные числа от 1 до 10000(т.е. проверить и напечатать их). без массивов. 2. с клавы...

4
Puporev
Модератор
54012 / 41645 / 14727
Регистрация: 18.05.2008
Сообщений: 97,897
22.10.2017, 16:52 #2
Смотрите похожие темы внизу страницы. Впредь называйте темы информативно, себе жизнь облегчите.
0
noskir
0 / 0 / 0
Регистрация: 22.10.2017
Сообщений: 11
22.10.2017, 17:09  [ТС] #3
Там все только для одного числа, а мне нужно ввести 4.
0
Puporev
Модератор
54012 / 41645 / 14727
Регистрация: 18.05.2008
Сообщений: 97,897
22.10.2017, 17:43 #4
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
{функция определения совершенного числа}
function sov(n:longint):boolean;
var i:integer;
    s:longint;
begin
s:=0; {сумма делителей числа}
for i:=1 to n div 2 do {от 1 до половины числа}
if n mod i = 0 then s:=s+i;{если делится на очередное, суммируем}
sov:=s=n;
end;
{ основная программа}
var i,x:longint;
begin
clrscr;
for i:=1 to 4 do
 begin
  write('введите натуральное число x=');
  readln(x);
  if sov(x) then writeln('Это совершенное число')
  else writeln('Это не совершенное число');
 end;
readln;
end.
Список совершенных чисел
https://ru.wikipedia.org/wiki/Совершенное_число
Проверяйте из первых 5.
1
noskir
0 / 0 / 0
Регистрация: 22.10.2017
Сообщений: 11
22.10.2017, 18:12  [ТС] #5
Danke sehr!
0
22.10.2017, 18:12
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.10.2017, 18:12
Привет! Вот еще темы с ответами:

Найти все совершенные числа от M до N - Turbo Pascal
Помогите, пожалуйста сделать программу, все похожие темы не подходят. Число называется совершенным, если оно равно сумме всех своих...

Определить все совершенные, простые числа не превышающие P - Turbo Pascal
В общем суть такая, пишу я программу чтобы определить все совершенные числа не превышающие P, допустил кое-какую ошибку и он мне начал...

Определить процедуру позволяющую распознавать совершенные числа - Turbo Pascal
даны вещественное n, и целые числа a(1),........,а(n). рассмотреть все отрезки последовательности a(1),........,а(n), состоящие из...

Найдите все совершенные числа от 1 до 1000 и выведите их на экран - Turbo Pascal
Число совершенно,если она равна сумме всех своих делителей кроме самого себя.Пример :6=1+2+3 найдите все совершенные числа от 1 до 1000 и...


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

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

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