Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: Programust
6
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.

Programust: вот вообще без умножение, но тут приходится вводить 3-ие число, которое равно первому. Тогда все получится. Если тебя не напрегает третье число то Вот.
Programust: Ответ смотри. Я его изменил
Похожие вопросы
Предмет: Английский язык, автор: Red11111111
Предмет: Геометрия, автор: keriwey