Вопрос от посетителя
Составить программу вычеслений значения функции:
y={1при x больше или равно 0;
{0 при x<0;
одна фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста
Отвечает Илюха:
Если я парвильно понял задание, то вот
var x,y : integer;
begin
readln(x);
if x>=0 then y:=1
esle y:= 0;
writeln(y);
end.