Question

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

Это цикл с условием ( while)
ПАСКАЛЬ

Помогите пожалуйста
Заранее спасибо

Answer 1

javascript:var a = parseInt(prompt()), b = parseInt(prompt()), c = 0, сч = 0; while (сч < Math.abs(b)) { c += a; сч++; } if (b < 0) c = -c; alert(c);

А вот и Pascal. Надеюсь, не ошибся.

program pr;

var a, b, c, cnt: integer;

begin

 a := readln();

 b := readln();

 c := 0;

 cnt = 0;

 while (c < abs(b)) begin

   c := c + a;

   cnt := cnt + 1;

 end;

 writeln(c);

end.