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

Question

Информатика

Валер

24 декабря, 18:24

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

+2

Ответы (1)

Знаете ответ?

Клим · Answer 1

Var

a, b, c:integer;

begin

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

readln (a) ;

readln (b) ;

c:=a*b;

if (c<0) then

c:=c * (-2) ;

else

c:=c*2;

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

end.