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

Question

Информатика

Тимаха

19 июля, 05:52

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

+1

Ответы (1)

Знаете ответ на вопрос?

Липа · Answer 1

Vara, b, z, x:integer;

begin

writeln ('Введите первое число') ;

readln (a) ;

writeln ('Введите второе число') ;

readln (b) ;

writeln ('Введите третье число равное первому') ;

readln (z) ;

a:=1;

while a<=z do

begin

x:=x+b;

a:=a+1;

end;

writeln ('произведение равно = ', x)

end.