Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Отыскать номер первого по порядку нулевого элемента одномерного массива https://www.cyberforum.ru/ turbo-pascal/ thread822093.html
Составьте программу,отыскивающую номер первого по порядку нулевого элемента одномерного массива W(N)
Получить минимальный элемент последовательности Turbo Pascal
Даны натуральное число n, действительные числа a1,...,an. Получить: min (a1,...,an); program m; const n=100; var a:array of integer; i,min:integer begin min:=100; for i:=1 to n do begin a:=random(100); writeln(a,' ');
Turbo Pascal Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку https://www.cyberforum.ru/ turbo-pascal/ thread822051.html
Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В полученном массиве вместо aх1 запишите наибольший элемент массива, а вместо aхN — наименьший элемент массива. Заранее буду благодарен.
Turbo Pascal Построить график https://www.cyberforum.ru/ turbo-pascal/ thread822021.html
1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Выбрать размещение системы координат в соответствии с левым и правым интервалом и в соответствии с минимальным и максимальным значением функции, которые могут быть достигнуты на этом интервале. 3. Построить горизонтальную и вертикальную координатные оси. 4. Подписать названия координатных осей. 5. Построить на...
Найти все натуральные четырехзначные числа, не превосходящие заданного N Turbo Pascal
исправьте меня пожалуйста дана задача: Найти все натуральные четырехзначные числа, не превосходящие заданного N, цифры в которых образуют строго возрастающую последовательность (1000 ≤ N < 10000) вот что у меня получилось: uses crt; var c1,c2,i,c3:longint; n,f:integer; begin readln(n);
Turbo Pascal Вывести на экран монитора горизонтально расположенную строку текста длиной не более двадцати символов https://www.cyberforum.ru/ turbo-pascal/ thread821965.html
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Очистить экран монитора и при необходимости установить требуемый цвет фона. 2. Вывести один или несколько графических элементов (отрезков, прямоугольников, окружностей, эллипсов, многоугольников, строк текста или др.) требуемого цвета и размера с заданным начальным расположением. 3. Обеспечить изменение цвета, размеров или перемещение графических...
Turbo Pascal Программа из Pascal ABC не запускается https://www.cyberforum.ru/ turbo-pascal/ thread821963.html
На абс запускаю всё работает, а на турбо кидает ошибку, помогите разобраться. п.с Программу писал не сам, а только изменял метод сортировки. Сортировку писал тоже не я. uses crt; const max=100; type mas=array of integer; procedure sort(var x:mas;l,r:integer); var i,j,x1,y1,m: integer; ax:mas; begin i:=l;
Turbo Pascal Найти сумму ряда
Даны натуральное число n, действительные числа a1,..., an. Вычислить: a1^2 + ... + an^2;
Turbo Pascal Упорядочить строки по первому столбцу массива https://www.cyberforum.ru/ turbo-pascal/ thread821959.html
Дан двумерный массив. Упорядочить строки по первому столбцу
Turbo Pascal Составить программу на записи и файлы https://www.cyberforum.ru/ turbo-pascal/ thread821913.html
Даны сведения студентов, и результаты сессии. Даны Фио, название четырех предметов, оценки полученные по каждому предмету. Вывести фамилии студентов, общий балл которых отличается ни более чем на 2 балла от максимального общего балла. Сделать и на записи и на файлы.
Turbo Pascal Модуль
Реализуйте в виде модуля набор программ для выполнения следующих операций над окружностями. 1.Вычисление площади окружность. 2.Вычислить длины радиуса окружности. Используя модуль решить след. задачу вычислить площадь кольца, если известно что центр окруж. лежит в точке О(-2;-2) внутренняя окуж. проходит через точку А(2;-1) а внешняя через точку В(5;3)
Turbo Pascal Работа со строками https://www.cyberforum.ru/ turbo-pascal/ thread821863.html
Даны: строки S и S0. Удалить из строки S все подстроки совпадающие с S0. Если совподающих нет вывести строку S без изменений.
1642 / 1091 / 487
Регистрация: 17.07.2012
Сообщений: 5,345
30.03.2013, 13:35 0

Определить, является ли заданное натуральное число совершенным - Turbo Pascal - Ответ 4332233

30.03.2013, 13:35. Показов 1660. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
program chislo;
var i,p,s:longint;
begin
Write('Введите натуральное число,P=');
Readln(p);
for i:=1 to p div 2 do
if p mod i=0 then s:=s+i;
if p=s then Writeln('Число является совершенным.') else
Writeln('Число не является совершенным.');
Readln;
end.


Вернуться к обсуждению:
Определить, является ли заданное натуральное число совершенным Turbo Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2013, 13:35
Готовые ответы и решения:

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

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

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

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

2
30.03.2013, 13:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2013, 13:35
Помогаю со студенческими работами здесь

Определить, является ли заданное натуральное число простым
Определить, является ли заданное натуральное число простым

Определить, является ли заданное натуральное число простым
Определить, является ли заданное натуральное число простым. Выходные данные: Вывести YES или NO....

Определить, является ли заданное натуральное число простым (рекурсия)
11. Определить, является ли заданное натуральное число простым

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

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