var A,B,C,X:boolean;
begin
writeln('A':6,'B':6,'C':6,'X':6);
for A:= false to true do begin
for B:= false to true do begin
for C:= false to true do begin
X:= (A or not(B))or not(not(A) or C);
writeln(A:6,B:6,C:6,X:6);end;end;end;<span>end.</span>
Using System;
namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
Console.Write("введите число: ");
int value = int.Parse(Console.ReadLine());
int sum = 0;
for(int i = 1; i < value; i++)
if (value % i == 0) sum += i;
if (value == sum) Console.WriteLine("Число совершенное");
else Console.WriteLine("Число не совершенное");
Console.ReadLine();
}
}
}
Программы,интерфейсы и гл.меню
Ответ:
460 байт= 3680 бит
Объяснение:
1 Байт равен 8 битам
Просто умножь 460 на 6 и получишь 3680.