Вычислите сумму чисел x и y+при x = 0167+ y = 0//0/0001-Результат
представьте в десятичной системе счисления-
Рисунок и требуемая таблица - в прилагаемом файле.
Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.
52(10), 101001(2)=41(10), 43(8)=35(10), 36(16)=30(10)