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

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

Задать свой вопрос
2 ответа
Var
  x: real;
  n: integer;

begin
  Write('Введите любое число: ');Readln(x);
  if x lt; 0 then n := -1
  else
  if x = 0 then n := 0 else n := 1;
  Writeln('y=', n)
end.

Тестовое решение:
Введите хоть какое число: 5
y=1


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

end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт