Предмет: Информатика,
автор: alexlyapin21
Решите подалуйста задачу на PascalABC
3. Напишите функцию, находящую сумму делителей числа, включая единицу и исключая само число. Используя ее, определите, какое из пяти заданных чисел является совершенным (число равно сумме своих делителей).
Ответы
Автор ответа:
0
Похожие вопросы
Предмет: Русский язык,
автор: novikovaelizaveta355
Предмет: Обществознание,
автор: PeylanpEylAn
Предмет: Математика,
автор: 134579204
Предмет: Литература,
автор: 98ЙА12
Предмет: Химия,
автор: FlorinA69
begin
result := 0;
for var i := 1 to a div 2 do
if a mod i = 0 then
result += i;
end;
begin
var a := ReadArrInteger(5);
for var i := 0 to a.High do
if a[i] = F(a[i]) then
Print(a[i])
end.