Дана система: z=1, если а 0z=0, если а=0z=-1, если z сделать на паскале

Question

Информатика: Дана система: z=1, если а 0z=0, если а=0z=-1, если z сделать на паскале

данил2048 · Answer

Var a,z:integer;beginwrite( a = );readln(a);if a 0 then z:=-1 else if a=0 then z:=0 else z:=1;writeln( z = ,z);end.Пример:a = 23z = 1...

Дана система: z=1, если а> 0z=0, если а=0z=-1, если z сделать на паскале