Question

Составить программу вычеслений значения функции:

 

 

y={1при x больше или равно 0;

    {0 при x<0;

 

одна фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста

Answer 1

Если я парвильно понял задание, то вот

var x,y : integer;

begin

readln(x);

if  x>=0 then y:=1

esle y:= 0;

writeln(y); 

end.