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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 12, средняя оценка - 4.83
Лер4ик
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 81
#1

Является ли число совершенным? (операторы while и repeat) - Turbo Pascal

10.02.2010, 13:23. Просмотров 1480. Ответов 4
Метки нет (Все метки)

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

Проверить, является ли число N совершенным - Turbo Pascal
Проверить, является ли число N совершенным. В основной программе вводится само число, в процедура выполняет проверку на данный признак...

Выяснить, является ли натуральное число совершенным - Turbo Pascal
Выяснить, является ли натуральное число совершенным, т.е. равным сумме своих делителей, включая 1

Является ли заданное натуральное число совершенным - Turbo Pascal
СОСТАВИТЬ программу, проверяющую, является ли заданное натуральное число совершенным

Определить, является ли заданное натуральное число совершенным - Turbo Pascal
Определить, является ли заданное натуральное число совершенным, то есть равным сумме всех своих (положительных) делителей, кроме самого...

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

Определить является ли заданное натуральное число совершенным - Turbo Pascal
буду очень благодарна за помощь . задача: Определить является ли заданное натуральное число совершенным т.е. равной сумме всех своих...

4
Puporev
Модератор
52381 / 40228 / 13565
Регистрация: 18.05.2008
Сообщений: 92,967
10.02.2010, 15:10 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Pascal
1
2
3
4
5
a:=0;{сумма делителей числа пока=0}
for i:=1 to N div 2 do{от одного до половины числа}
if N mod i=0 then a:=a+i;{проверяем по порядку делится ли это число нацело на i, если делится прибавляем его к сумме}
if a=N then write('Chislo ',sr,' sovershennoe!'){если сумма делителей=нашему числу-оно совершенное}
else write('Chislo ',Nr,' ne sovershennoe!');{если нет- несовершенное}
Добавлено через 9 минут
Вот с другими циклами.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var n,i,k,j:longint;
begin
clrscr;
write('n=');readln(n);
i:=1;k:=0;
while i<=n div 2 do
 begin
  if n mod i=0 then k:=k+i;
  i:=i+1;
 end;
if k=n then write('Совершенное')
else write('Не совершенное');
{цикл repeat
i:=1;k:=0;
repeat
 if n mod i=0 then k:=k+i;
 i:=i+1;
until i>n div 2;
if k=n then write('Совершенное')
else write('Не совершенное'); }
readln
end.
3
Лер4ик
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 81
10.02.2010, 15:32  [ТС] #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program soverw;
var
n,i,s:integer;
 begin
 writeln('Введите число');
read(n);
          s:=0;
          i:=1;
          while i<=n-1 do
          begin
           if n mod i=0 then
           s:=s+i;
           inc(i,1);
           end;
           if s=n then
           writeln(n,' совершенное')
           else
           writeln(n,' не совершенное');
end.


так правильно будет?????
0
Puporev
Модератор
52381 / 40228 / 13565
Регистрация: 18.05.2008
Сообщений: 92,967
10.02.2010, 15:43 #4
Лер4ик, Вы читать умеете?
Зачем while i<=n-1 do, что число 28 будете проверять на делимость к 26,27?
А это inc(i,1); inc(i) это и есть увеличить на 1.
0
Лер4ик
0 / 0 / 0
Регистрация: 03.02.2010
Сообщений: 81
10.02.2010, 15:57  [ТС] #5
Гг..ссылаюсь на то,что у меня женские мозги))

Добавлено через 2 минуты
а как это в диапазон загнать?
0
10.02.2010, 15:57
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.02.2010, 15:57
Привет! Вот еще темы с ответами:

Определить, является ли заданное натуральное число совершенным - Turbo Pascal
определить,является ли заданное натуральное число совершенным,т.е равным сумме всех (положительных) делителей ,кроме самого этого числа (...

Определить, является ли число совершенным - Pascal
Определить, является ли число совершенным, то есть равно ли оно сумме своих делителей, кроме самого себя.(Процедуры, функции)

Вводится число, определить является ли оно совершенным - Pascal
1) вводится два числа, определить наименьшее общее кратное этих чисел 2) вводится число,определить является ли сумма элементов от единицы...

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


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

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

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