1. Информатика
  2. На языке паскаль абс написать

На языке паскаль абс написать программу (не глушилку , а нормальную программу)(желательно с циклов и if-ов) натуральное число называется совершенным, если оно равно сумме своих делителей, включая 1 и, естественно, исключая само число. например, совершенным является число 6 (6=1+2+3). необходимо найти все совершенные числа, меньшие заданного числа n. формат входных данных вводится одно целое число n (1≤n≤100000). формат выходных данных требуется вывести все совершенные числа, меньшие заданного числа n. числа следует выводить в порядке возрастания, разделяя пробелами. примеры входные данные выходные данные 7 6

HiDolr HiDolr    2   08.06.2019 16:30    1

Ответы
galaxykill galaxykill  07.07.2020 19:12
Ну Хьюстон почти все уже сделал. Я чуток подправил
var i,j,s,n:integer; 
begin
readln(n);
for i := 1 to n-1 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 write(i,' ');
  end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Waz4 Waz4  23.04.2020 17:19
В одной из кодировок Unicode каждый символ кодируется 8 битами.Оля скачала текст (в нем нет лишних пробелов): Долгопят, ленивец, трубкозуб, ринопитек, галаго, окапи, поясохвост...
ulanachukalkina ulanachukalkina  23.04.2020 17:19
Найти сумму значений функции Y=COS(X/A)+X/(A-2) для X, изменяющегося от -20 до 3 с шагом 1,4. Результат вывести на экран и записать в файл....
SvetaX16X SvetaX16X  21.04.2019 20:03
Программа на паскальодномерный массив заполнен случайными числами от -20 до 15. необходимо составить программу, которая будет выводить массив таким образом, что на всех чётных...
koookBook koookBook  21.04.2019 20:02
Перевести числа в 10ричную систему счисления. 101011(2). 110110(2). 75(8).134(8). 765(8). 12031(4). 2643(8). 1вс(16). 22в(16). а35(16). 2fe1(16). в скобках система счисления. напишите...
Kira2103 Kira2103  21.04.2019 20:01
1. символом f обозначено одно из указанных логических выражений f. какое выражение соответствует f? 1) x /\ y /\ z. 2) ¬x \/ ¬y \/ z. 3) x \/ y \/ z. 4) x /\ y /\ ¬z2. составьте...
Metalmekid Metalmekid  21.04.2019 19:56
Программирование линейных алгоритмов»составь программу, позволяющую посчитать сумму цифрвводимого с клавиатуры двухзначного числа. длясоставления программы воспользуйся операциями...
Ксенька20012002 Ксенька20012002  11.08.2019 22:00
Даны x,y,z найти b если b = 1+cos(y-2)/x4/2+ sin^2 7 (паскаль)...
Вкуснополлия Вкуснополлия  11.08.2019 22:00
Каждое из следующих предложений замените конъюнкцией или дизъюнкцией,имеющей тот же смысл. 1.область определения функции включает в себя все положительные числа,кроме3. 2.после...
Оливия20 Оливия20  17.04.2020 11:49
Что может служить причиной, которая не дает добиться сходства рисунка с объектом? Образное мышление Творческое мышление Аналитическое мышление Категоричное мышление...
benleo2001 benleo2001  17.04.2020 11:49
Метод визирования – это: Компьютерная проверка пропорций объекта Заверение документа официальным лицом Определение пропорций объекта на глаз Проверка пропорций объекта при карандаша...

Популярные вопросы