Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите с информатикой. Напишите программу, вычисляющую значение функции!!!

Ответ оставил Гость

Var x, y: integer;
begin
write(Введите x: );
readln(x);
if x < 0 then begin y := -1; writeln(y = , y); end;
if x = 0 then begin y := 0; writeln(y = , y); end;
if x > 0 then begin y := 1; writeln(y = , y); end;

end.