Даны натуральные числа x и y. Вычислить произведение x*y, используя лишь сложение. Язык...

Question

Даны натуральные числа x и y. Вычислить произведение x*y, используя лишь
сложение. Язык программирования: Паскаль.

Answer 1

Var x,y,i,p:longint;
begin
  write ('X = ');
  readln (x);
  write ('Y = ');
  readln (y);
  p:=0;
  for i:=1 to y do p:=p+x;
  writeln ('Proizvedenie: ',p);
end.