Ответы
Ответ дал:
0
var
x,y:integer;
begin
writeln( 'x=');
readln (x);
if x<0 then
y:=-1;
if x=0 then
y:=0;
if x>0 then
y:=1;
writeln ('y=',y:3:2);
readln;
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад