Регистрация
Войти
Стать экспертом Правила
Информатика

вычислить функцию в Паскале,Пожалуйста посчитайте!!!

ОТВЕТЫ
var x,y:integer;
begin
write('x=');
readln(x);
if x<0 then y:=-1
else if x=0 then y:=0
else y:=1;
writeln('y=',y)
end.
258
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам