Ввести 2 числа. Если их произведение отрицательно и четно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 1,5 раза и вывести на экран.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
2 года назад