Решите задачу на языке паскаля

potato1999 potato1999    2   18.05.2020 22:45    0

Ответы
astafievaolga20 astafievaolga20  14.10.2020 23:23

13)

Var

x:integer;

Begin

Readln(x);

Begin

If x<0 then

Write('y=-1') end;

Begin

If x=0 then

Write('y=0') end;

Begin

if x>0 then

Write('y=1') end;

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика