Напишите программу, вычисляющую значение функции:

Question

Напишите программу, вычисляющую значение функции:

---

Comments

на каком языке?

---

Паскаль.

Answer 1

Ответ:

Вот прога)

Объяснение:

program n1;

var x: real;

begin

readln(x);

if x

if x=0 then writeln('y = 0');

if x>0 then writeln('y = 1');

end.

Comments

var x,y : integer;
begin
write('x= '); readln(x);
if(x < 0) then y := -1 else if(x > 0) then y:= 1 else y := 0;
writeln(y);
end.

---

Почему без вложеных условий?