Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
noskir
0 / 0 / 0
Регистрация: 22.10.2017
Сообщений: 11
#1

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

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

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

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

Напечатать все совершенные числа, меньшие заданного числа N
Натуральное число M называется совершенным, если оно равно сумме всех своих...

Совершенные числа
Дано натуральное число n, Получить все совершенные числа меньше n. Помогите...

совершенные числа
В интервале от «а» до «b» напечатайте совершенные числа. Совершенным числом...

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

4
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
22.10.2017, 16:52 #2
Смотрите похожие темы внизу страницы. Впредь называйте темы информативно, себе жизнь облегчите.
0
noskir
0 / 0 / 0
Регистрация: 22.10.2017
Сообщений: 11
22.10.2017, 17:09  [ТС] #3
Там все только для одного числа, а мне нужно ввести 4.
0
Puporev
Модератор
54349 / 41942 / 28977
Регистрация: 18.05.2008
Сообщений: 98,786
22.10.2017, 17:43 #4
Лучший ответ Сообщение было отмечено noskir как решение

Решение

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

совершенные числа
Короче я сделал вот такую прогу: В числовую перменную последовательно вводятся...

простые и совершенные числа
Помогите пожалуйста! 1.нужно посчитать все совершенные числа от 1 до...

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


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

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

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