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

Question

Галиха

3 октября, 20:27

+1

Ответы (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.