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

Question

Информатика

Иоанн

24 сентября, 21:08

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

+2

Ответы (1)

Знаете ответ?

Феня · Answer 1

Var a, z:integer;

begin

write ('a = ') ;

readln (a) ;

if a<0

then z:=-1

else if a=0 then z:=0 else z:=1;

writeln ('z = ', z) ;

end.

Пример:

a = 23

z = 1