Текст, числовой(байт,целое,длинное целое),действительное, вещественное
Число считается совершенным, если оно равно сумме своих делителей, исключая себя самого. Для проверки, является ли число N совершенным, полагаем будущую сумму делителей равной 1 (на единицу число всегда делится) и последовательно делим N на числа, начиная от 2 и заканчивая N/2.
Если число делится без остатка на очередной делитель, добавляем его к сумме. После завершения цикла делений сравниваем сумму с 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.
<em><u>Тестовое решение:</u></em>
Введите натуральное число: 33550336
Число является совершенным
Введите натуральное число: 543252
Число не является совершенным
1. Допустим, Андрей правильно назвал цвет - синий. Тогда он неверно назвал марку и автомобиль - не мерседес. Тогда Егор, сказавший что автомобиль не синий, солгал и автомобиль должен быть марки Форд. Саша должен быть прав хотя бы в одном высказывании, но сказанное им не совпадает ни с цветом автомобиля (синий), ни с маркой (Форд). Отсюда следует, что автомобиль не синий.
2. У нас по условию есть только два цвета автомобиля - синий и черный. И поскольку автомобиль не синий, то он может быть<em />только<em> черным.</em>
3. Саша правильно назвал цвет автомобиля, тогда его марка - не Джип. Андрей неверно назвал цвет автомобиля, тогда марка автомобиля - <em>Мерседес</em>. Егор сказал, что автомобиль не синий и это правда. Он также сказал, что автомобиль марки Форд - и это неправда.
<em><u>Ответ:</u></em> автомобиль - черный "Мерседес"