0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 53
1

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

07.04.2014, 12:57. Показов 10240. Ответов 5
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое следующее равно сумме двух предыдущих: Fn=Fn-1+Fn-2. Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.04.2014, 12:57
Ответы с готовыми решениями:

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

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

Напишите программу, которая вводит натуральное число N и выводит первые N чисел Фибоначчи
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1 ( F 1 = F 2 = 1 ), а...

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

5
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
07.04.2014, 14:34 2
Лучший ответ Сообщение было отмечено maksibon как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program fib;
var a, b, f, n, i, x: integer;
 
begin
writeln('Vvedite poryzdkoviy nomer chisla');
readln(n);
a :=1; b := 1;
for i := 3 to n do begin
    f := a + b;
    a := b;
    b := f;
    end;
writeln('chislo s nomerom ',i,' = ',f);
    x := 0;
for i := 1 to (f div 2) do
    if ((f mod i) = 0) then x := x + i;
    
If (x = f) then writeln('Chislo sovershennoe')
else writeln('Chislo nesovershennoe');
end.
1
Модератор
9742 / 5077 / 3287
Регистрация: 17.08.2012
Сообщений: 15,632
07.04.2014, 14:40 3
Из Википедии:
Совершенное число́ (др.-греч. ἀριθμὸς τέλειος) — натуральное число , равное сумме всех своих собственных делителей (т. е. всех положительных делителей, отличных от самого́ числа).
Так, вопрос из любопытства, для уточнения темы: Как связаны совершенные числа и числа Фибоначчи? По-моему, никак. maksibon, объяснитесь.
0
79 / 73 / 66
Регистрация: 11.04.2013
Сообщений: 221
07.04.2014, 15:37 4
Я рискну предположить что это просто задание из учебного заведения.
1
0 / 0 / 0
Регистрация: 17.01.2013
Сообщений: 53
08.04.2014, 12:22  [ТС] 5
Именно. Это задание из учебника. Причем все напечатно так же как и там.
0
Cyborg Drone
08.04.2014, 12:37     Напишите программу, которая вводит натуральное число N и определяет, является ли число N совершенным
  #6

Не по теме:

Спасибо за разъяснение... Ужас. Нужна реформа образования. С обязательным требованием к преподавателям, чтобы с логикой дружили...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2014, 12:37

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

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

Напишите программу, которая вводит натуральное число N и выводит на экран первые N чисел Фибоначчи
Ряд чисел Фибоначчи задается следующим образом: первые два числа равны 1(F1=F2=1), а каждое...

Составить программу, проверяющую, является ли заданное натуральное число совершенным
Написать программу в Паскаль.ABC и составить блок схему: 2. Составить программу, проверяющую,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru