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

Question

Мира

18 августа, 07:08

+1

Ответы (1)

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

Витаня · Answer 1

Var X, Y, Z:integer;

Begin

Write ('X = ');

ReadLn (X);

Write ('Y = ');

ReadLn (Y);

Z:=0;

For X: = 1 to X do

Z:=Z+Y;

Write ('Z = ', Z);

End.