Напишите программу, которая получает два целых числа и находит их произведение не используя операцию умножения. учтите, что числа могут быть отрицательными. пример : введите два числа: 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.

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

1 кбайт

1000 байт

1024 бит

1 байт

1 бит