Фарафон
7 год назад
Дана система:z = 1, если а>0z = 0, если а = 0z = -1, если z помогите сделать на Паскале
ОТВЕТЫ
Данилович
Jul 13, 2019
Var a,z:integer;
begin
write(a = );
readln(a);
if alt;0
then z:=-1
else if a=0 then z:=0 else z:=1;
writeln(z = ,z);
end.
Пример:
a = 23
z = 1
begin
write(a = );
readln(a);
if alt;0
then z:=-1
else if a=0 then z:=0 else z:=1;
writeln(z = ,z);
end.
Пример:
a = 23
z = 1
48
Смежные вопросы:
