Переводим числа в двоичную систему счисления. Получаем:
а) 01000001 10000000 11111111 00001100
б) 11000000 00110000 00000000 00011000
A=17(8)=1111(2)
B=22(8)=10010(2)
C=34(10)=100010(2)
A+B+C=1111(2)+10010(2)+100010(2)=1000011(2)
<em>// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=ReadArrInteger(ReadInteger('n=')).Pairwise.All(t->t[0]<=t[1]);
b.Println;
end.
<u>Примеры</u>
n= 5
36 46 57 39 94
False
n= 7
9 11 23 64 79 120 500
True
var a: array [1..20] of integer;
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i] := 1 else a[i] := 0;
writeln (a)
end.