Question

Найти произведение x*n с помощью цикла не используя операцию умножения

Answer 1

program mult; var x, n, i: integer; begin write('Введите x и n через пробел'); readln(x, n); if n>0 then for i:=1 to n-1 do x:=x+x else for i=1 downto n do x:=x-x; writeln('x * n =', x) end.

Answer 2

спасибо большое