Напишите программу в паскале, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными.

Question

Милана

14 апреля, 14:58

+4

Ответы (1)

Знаете ответ?

Анемподист · Answer 1

Var x, y, p, i:integer;

begin

readln (x, y) ;

for i:=1 to abs (y) do p:=p+x;

if y<0 then p:=-p;

writeln (p) ;

end.