Question

Составьте программу нахождения произведения z двух натуральных чисел x и y без использования операции умножения.

Answer 1

var x, y, z, i: integer;
begin
read(x, y);
for i := 1 to y do
  z += x;
writeln(z);
end.

Answer 2

что значит z+=x

Answer 3

а можно схему?