Напишите программу, которая получает два целых числа и находит их произведение не используя операцию умножения. учтите, что числа могут быть отрицательными. пример : введите два числа: 10-15,10*(-15)=-150

Var  a, b, prod, i: integer; begin   writeln('введите два числа: ');   readln(a, b);   prod : = 0;   if (b < 0) then     for i : = b to -1 do       dec(prod, a)   else     for i : = 1 to b do       inc(prod, a);   writeln(prod) end.

51 в десятой сс=110011 в двоичной сс

85 в дес сс=1010101 в двоичной сс

110011+1010101=10001000

110011-1010101=1111111111011110

вроде так

если ответ нужен в десятичной сс, то просто переведи

1)false (т.к. x> y)

2)true (x< y,x не равен y)

3)false(x> y)

4)true(т.к. x=y, x не равен y)