с информатикой
задача номер 1
в паскале
написать программу ​

var x,y:real;

begin

   write('Введите x: '); readln(x);

   if x<0 then y:=abs(x)

   else if (x>0) and (x<1) then y:=x

   else y:=10*x;

   write('y = ',y:0:2);

end.

Странно, что в задании везде стоят строгие неравенства... То есть при x=0 и при x=1 значение y никак не вычисляется...ну ладно...сделал как в задании