Дана система:z=1, если а больше 0z=0, если а=0z=-1, если z помогите сделать на Паскале
Дана система:z=1, если а>0z=0, если а=0z=-1, если z помогите сделать на Паскале
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы