составить программу нахождения произведения z двух натуральных чисел x и y без использования операции умножения
Ответы на вопрос
Ответил Аноним
0
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.
Begin
Write('X = ');
ReadLn(X);
Write('Y = ');
ReadLn(Y);
Z:=0;
For X:= 1 to X do
Z:=Z+Y;
Write('Z = ',Z);
End.
Новые вопросы