1. а=10
2. а=12
3. а=3
4. а=22
5. а=15
6. а=34
7. а=3
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.
А8 = 250 в восьмеричной
АB = 253 в восьмеричной
B5 = 265 в восьмеричной
CA = 312 в восьмеричной
То есть, ответом будут являться число CA
64=2^i
i=6
n=57344*6=344064 бита=43008 байтов = 42 кб