var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
Function fact(n As Integer) As Long
Dim i As Integer, p As Long
p = 1
For i = 2 To n
p = p * i
Next i
fact = p
End Function
Sub Test()
Dim n As Integer, s As Long, i As Integer
s = 0
n = CInt(InputBox("Введите число n"))
For i = 1 To n
s = s + fact(i)
Next i
MsgBox s
End Sub
№1.
10100=24=20=14
100101=45=37=25
100011=43=35=23
11111=41=33=1F
101001=51=41=29
1100101=125=101=65
11100111=287=231=E7
111001=71=57=39
11101=35=29=3D
№2
a) 100110011=307
10001001=137
307+137=434=110110010
б) 1111111(127) + 100001(33) = 160 = 10100000
в) 10000001(129) +1111111(127) = 256 = 100000000
г) 1001001(73) + 1F(31) = 104 = 1101000
д) 23(19) + 65(10) = 84
е) 1001110(78) + 44(68) = 146
№3
111(2) = 7(10)
А2(16) = 162(10)
34(8) = 28(10)
76(16) = 118(10)
Порядок таков: 111(2), 34(8), 76(16), А2(16)
Подилить каждое на х если будет ето число менше 1 то число менше х