Ответы
Ответ дал:
0
Program prx;
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If x<0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If x<0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
Ответ дал:
0
У меня половина букв на русском, я с телефона
Ответ дал:
0
ааа
Ответ дал:
0
спс
Ответ дал:
0
сорян за нарушение
Ответ дал:
0
просто уже 3 час пытаюсь эту хрень сделать, немного заебался!(
Похожие вопросы
2 года назад
2 года назад
6 лет назад
9 лет назад
9 лет назад