Предмет: Информатика,
автор: Anonim47
Гуру Pascal'я, помогите пожалуйста!
Приложения:
Ответы
Автор ответа:
0
var x,y:integer;
beginread(x);
if x<0 then y:=-1;
if x=0 then y:=0;
if x>0 then y:=1;
writeln('y=',y);
end.
beginread(x);
if x<0 then y:=-1;
if x=0 then y:=0;
if x>0 then y:=1;
writeln('y=',y);
end.
Похожие вопросы
Предмет: Математика,
автор: azharkyndaribay10
Предмет: Математика,
автор: mirzamatovparviz
Предмет: Физика,
автор: xxxHELPMExxx
Предмет: Математика,
автор: danil4545rus