Question

Составить программу вычисления выражения:

{3*X, если X ≤ 0
Y= {1/X , если X > 0

ПОМОГИТЕ ПОЖАЛУЙСТА, НАДО НА ЗАВТРА!!!

Answer 1

program p1;

var  

  x:integer;

  y:real;

begin

  WriteLn('Введите число');

  ReadLn(x);

   

  if x <= 0 then

    begin

      y:=3*x;

    end;

     

   if x > 0 then

    begin

      y:=1/x;

    end;

     

    WriteLn(y);

end.