Соотнесите определение с программой Программы-интерпретаторы Программы-компиляторы
автоматически переводят исходный текст программы с языка высокого уровня в машинный код
сразу выполняют команды языка, указанные в тексте программы
автоматически переводят исходный текст программы с языка высокого уровня в машинный код
сразу выполняют команды языка, указанные в тексте программы
Если число делится без остатка на очередной делитель, добавляем его к сумме. После завершения цикла делений сравниваем сумму с N и в случае равенства объявляем число N совершенным. В начале алгоритма проверяем, чтобы N было больше 1, в противном случае сразу объявляем число не совершенным.
var
i,n,s:longint;
begin
Write('Введите натуральное число: '); Read(n);
if n=1 then Writeln('Число 1 не является совершенным')
else begin
s:=1;
for i:=2 to (n div 2) do
if (n mod i)=0 then s:=s+i;
if s=n then Writeln('Число является совершенным')
else Writeln('Число не является совершенным')
end
end.
Тестовое решение:
Введите натуральное число: 33550336
Число является совершенным
Введите натуральное число: 543252
Число не является совершенным