Felollador
6 год назад
Напишите программу, вычисляющую значение функции
[-1 при х<0,
у = { 0 при х = 0,
[1 при х > 0,
ОТВЕТЫ
Svetozarovich
Jul 5, 2019
Program prx;
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If xlt;0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If xlt;0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
69
Смежные вопросы:
