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

Question

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

Answer 1

Vara,b,z,x:integer;
begin 
writeln('Введите первое число'); 
readln(a);
 writeln('Введите второе число');
 readln(b);
 writeln('Введите третье число равное первому');
 readln(z);
 a:=1;
 while a<=z do<br> begin 
x:=x+b;
 a:=a+1;
 end;
 writeln('произведение равно = ',x)
 end.

Comments

вот вообще без умножение, но тут приходится вводить 3-ие число, которое равно первому. Тогда все получится. Если тебя не напрегает третье число то Вот.

---

Ответ смотри. Я его изменил