напишите программу которая получает два целых числа и находит их произведение не используя операцию умножения. учтите что числа могут быть отрицательными.На Turbo Pascal пожалуйста срочно!!!!!Зарвнее спасибо!
Answers & Comments
igroman95
Вот. Умножение без помощи операции умножения. Делай лучшим)program pr;var i,a,b:integer;p:real;beginwrite('Первый множитель: ');readln(a);write('Второй множитель: ');readln(b);if b<0 then beginb:=-b;for i:=1 to b do beginp:=p+a;end;writeln(-p:0:2);endelse beginfor i:=1 to b do p:=p+a;writeln(p:0:2)end;end.
Answers & Comments