Напишите программу на языке Паскаль, пожалуйста!
Var
x:integer;
Beginwriteln(Введите x);
readln(x);
if x<0 then writeln(y=-1);
if x=0 then writeln(y=0);
if x>0 then writeln(y=1);
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
