Вывести все совершенные числа в диапазон 5 до 200
titomasha
1
03.03.2019 00:00
0
Другие вопросы по теме Информатика
bombaleilooo
30.12.2020 12:01
Lis666lis
30.12.2020 12:03
maksimfomin2020
30.12.2020 12:10
Sidoriva
30.12.2020 12:15
Silwashka99
30.12.2020 12:18
kgrintsewi4
30.12.2020 12:23
13Милана2004
30.12.2020 12:23
Agarin
30.12.2020 12:28
главный8
30.12.2020 12:34
Популярные вопросы
- Демографическая политика в Казахстане направлена на то, чтобы увеличить...
2 - Тапсырма 1. Әдеби шығармада көтерілген әлеуметтік-қоғамдық мәселені берілген...
1 - Б. Установите соответствие Формула вещества Тип связи Тип кристаллической...
1 - Упражнение 1. Просклоняйте сочетания: Четверо друзей, трое братьев, все...
2 - Заполните таблицу (8б) Император Юнлэ Вопросы для сравнения Сегун Токугава...
3 - 2- тапсырма. «Ту», «Байлық» - сөздерге морфологиялық талдау жасаңыз. (2б)...
3 - ответьте на вопросы умоляю все отдам 1. «Ана-Жер-Ана повесінде не туралы...
3 - . Точки А и Ележат по разные стороны от прямой BD, AD|| BE, AD = ВЕ. Докажите,...
2 - Найти точку пересечения прямых 4x-2y-3=0 и 3x+2y-9=0...
2 - Укажите вариант в котором находится ключевые слова текста для чего же мы...
2
совершенное число это число равное сумме своих делителей отличных от самого числа
var
i, s,j : integer;
begin
for i := 5 to 200 do
begin
s := 0;
for j := 1 to i div 2 do
if (i mod j = 0) then s := s + j;
if s = i then writeln(i);
end;
end.