Burintrius
6 год назад
Напишите программу вычисляющую значение функции y = 1 при x<0, y = 0 при x = 0, y = -1 при x<0
ОТВЕТЫ
Kaakdas
Jul 5, 2019
Var x,y:integer;
begin
write(x = );
readln(x);
if xgt;0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln(y = ,y);
end.
Пример:
x = -5
y = -1
begin
write(x = );
readln(x);
if xgt;0 then y:=1
else if x=0 then y:=0 else y:=-1;
writeln(y = ,y);
end.
Пример:
x = -5
y = -1
87
Смежные вопросы:
