===== PascalABC.NET =====
begin
var p := ReadInteger('p =');
var a := ArrRandom(p, -99, 99);
a.Println;
var q := a.FindIndex(r -> r < 0);
if q > -1 then
begin
var b := a?[:q].Where(r -> r.IsEven).ToArray;
Print('Первый массив:');
b.Println;
var c := a?[q:].Where(r -> r.IsOdd).ToArray;
Print('Второй массив:');
c.Println;
end
else
Println('В массиве нет отрицательных элементов')
end.
Program vozrast1;
var a,b:integer;
begin
write ('введите ваш возраст');
readln(a);
if a>=18 then write ('ok') else if (a>=14) and (a<18) write ('with parents');
if a<14 then write ('no');
end.
Ответ:
1) 10111двоичная(23десятиричная) * 111двоичная(7десятиричная) = 10100001двоичная(161десятиричная)
2) 11001двоичная(25десятиричная) * 111двоичная(7десятиричная) = 10101111двоичная(175десятиричная)
3) 10111двоичная(23десятиричная) * 111100двоичная(60десятиричная) = 10101100100двоичная(1380десятиричная)
4) 11000двоичная(24десятиричная) * 1101двоичная(13десятиричная) = 100111000двоичная(312десятиричная)
5) 1011двоичная(11десятиричная) * 111двоичная(7десятиричная) = 1001101двоичная(77десятиричная)
6) 1100100двоичная(100десятиричная) * 100011двоичная(35десятиричная) = 110110101100двоичная(3500десятиричная)
7) 101101двоичная(45десятиричная) * 1101двоичная(13десятиричная) = 1001001001двоичная(585десятиричная)
Объяснение:
где слово двоичная поставите 2 внизу, а где десятеричная 10 внизу