Question

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

Answer 1

var a,b,p,n:integer;
begin
writeln ('Введите два числа:');
readln (a, b);
n:=abs(b);
if (a=0) or (b=0) then
writeln (a,'*',b,'=0')
else begin 
while (n<>0) do begin 
n:=n-1; 
p:=p+abs(a)
end; 
if (a>0) and (b>0) then writeln (a,'*',b,'=',p); 
if (a<0) and (b<0) then writeln ('(',a,')','*','(',b,')','=',p); 
if (a>0) and (b<0) then writeln (a,'*','(',b,')','=-',p); 
if (a<0) and (b>0) then writeln ('(',a,')','*',b,'=-',p); 
end;
end.