//Pascal
var
i, n, sum: integer;
begin
write('Введите число: ');readln(n);
sum := 0;
for i := 1 to n div 2 do
if n mod i = 0 then
sum := sum + i;
if n = sum then
writeln('Число ',n,' совершенное')
else
writeln('Число ',n,' не совершенное');
readln;
end.

Пример:
Введите число: 28
Число 28 совершенное

Введите число: 21
Число 21 не совершенное

0 0

4 года назад

В коробке имеется набор устройства ввода-вывода клавиатура мышь принтер сканер акустические колонки Monitor Какое минимальное чи

Dorian Hokmun [265]

2,и следующий будет принтер

0 0

3 года назад

Активные и пассивные действия котёнка?

Милана 23

Отёнок спит - пассивные котёнок бегает прыгает .. что угодно но не спит -активныекомп-включен и работает - активные комп - выключен -пассивные<span>авто стит- пассивные что угодно но не стоит - активные</span>

0 0

4 года назад