Задача ** программирования:Ввести 2 числа,если их произведение отприцательное,умножить **...

Question

Задача на программирования:Ввести 2 числа,если их произведение отприцательное,умножить на -2,в противном случае умножить на 2

Answer 1

Var
a,b,c:integer;

begin
writeln("Введите 2 числа, которые будете умножать: ");
readln(a);
readln(b);

c:=a*b;

if (c<0) then<br>c:=c*(-2);
else
c:=c*2;

writeln("Ответ: ", c);
end.