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

Question

Евтихий

2 февраля, 02:59

+1

Ответы (1)

Знаете ответ на вопрос?

Емельян · Answer 1

Program n1;

var a, b: real;

begin

readln (a, b) ;

if a*b<0 then writeln (a*b*2) else writeln (a*b*1.5) ;

end.