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

Question

Информатика

Ляна

6 августа, 07:00

Дана система: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