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

1

Ответы и объяснения

2014-02-16T05:54:05+00:00
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.
Комментарий удален
вот вообще без умножение, но тут приходится вводить 3-ие число, которое равно первому. Тогда все получится. Если тебя не напрегает третье число то Вот.
Комментарий удален
Ответ смотри. Я его изменил
Комментарий удален