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

Ответ учителя по предмету Информатика

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.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей