Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
aksenovazlata
25.03.2021 18:03 •
Информатика
Дано натуральное число n.определить , является ли оно совершенным (совершенное число равно сумме всех своих делителей , не превосходящих само число)
Показать ответ
Ответ:
Bfushur83d63gfh88e
03.07.2020 09:56
Var numb,k,summa:integer;
begin
readln(numb);
for k:= 1 to (numb-1) do
begin
if numb mod k = 0 then
summa:=summa+k;
end;
if summa = numb then
writeln('Совершенное')
else
writeln('Несовершенное');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Sultikutan
28.07.2020 10:22
Решите только 5 задание ...
ValeraShara
12.03.2023 19:06
Дать краткие ответы на темы...
dicsi1
06.03.2020 21:03
Как распечатать текст на бумаге? Какие технически и механические средства для этого необходимы?...
barashinaa88
17.10.2021 08:42
Творческое задание: создать в графическом редакторе Paint открытку (рисунок) на тему 9 Мая - День Победы.И под открыткой напишите фамилию Арутунян....
MsMerenberg86
17.08.2021 23:28
1. Чем отличается непрерывный сигнал от дискретного? 2. Какие звуковые форматы вы знаете? 3. Какие форматы видео файлов вы знаете? 4. Что такое система счисления? 5. Что такое...
alerokl2313
08.02.2021 22:27
Перевести на с++ .Число рівне сумі всіх своїх дільників , включаючи одиницю , називається досконалим знайти і надрукувати всі досконалі числа в інтервалі від 2 до х ....
iluza3
20.11.2020 20:11
Краткий конспект Табличные информационные модели 9 класс...
cotik22890
26.07.2021 03:19
При выполнении контрольной работы ученик вычислил и информационный объём графического объекта который оказался равен 293 кбайт. При создании графического объекта использовался...
марттт
20.01.2022 22:59
Ученик написал реферат по заданию учителя. При этом он разместил текст на 25 страницах и сделал приложение в котором использовал две картинки с разрешением 300x250 при цветной...
Blarow
21.07.2021 07:22
Графические объекты размещаются на нескольких листах причём при его создании используются разрешение 760x520 при цветной палитре 64 цвета . Информационный объём данного графического...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(numb);
for k:= 1 to (numb-1) do
begin
if numb mod k = 0 then
summa:=summa+k;
end;
if summa = numb then
writeln('Совершенное')
else
writeln('Несовершенное');
end.