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

Question

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

Comments

надо?

Answer 1

Uses crt;
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (c<0) then begin<br>c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.