Напишите программу которая получает два целых числа и находит их произведение не используя операцию умножения. учтите что числа могут быть отрицательными.На Turbo Pascal пожалуйста срочно!!!!!Зарвнее спасибо!

1

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

2014-03-18T11:22:24+00:00
Вот. Умножение без помощи операции умножения. Делай лучшим) program pr; var i,a,b:integer;p:real; begin write('Первый множитель: '); readln(a); write('Второй множитель: '); readln(b); if b<0 then begin b:=-b; for i:=1 to b do begin p:=p+a; end; writeln(-p:0:2); end else begin for i:=1 to b do p:=p+a; writeln(p:0:2) end; end.