Даны 2 действительных числа x, y вывести их произведения если x,y больше 0и сумму если не...

Question

Даны 2 действительных числа x, y вывести их произведения если x,y больше 0и сумму если не так

Answer 1

Var  x,y:real;begin  if (x>0) and (y>0) then    writeln(x*y)  else    writeln(x+y);end.

Comments

var
x,y:real;
begin
if (x>0) and (y>0) then
writeln(x*y)
else
writeln(x+y);
end.

---

Скопируй то, что в комментарии