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

Question

Информатика

Валер

31 июля, 17:43

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

+4

Ответы (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.