Ввести 2 числа. Если их произведение отрицательно и четно, умножить его на - 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.

Question

Информатика

Альазайза

31 мая, 07:57

Ввести 2 числа. Если их произведение отрицательно и четно, умножить его на - 2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.

+4

Ответы (1)

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

Реввека · Answer 1

var num1, num2, check:integer; summ:real;

begin

ReadLn (num1) ;

ReadLn (num2) ;

summ: = num1 * num2;

check: = Trunc (summ) mod 2;

if ((summ<0) and (check = 0)) then

summ*=-2

else

summ*=1.5;

WriteLn (summ) ;

end.