program znak_liczby_1;

var a,b,c:real;

begin

writeln ('program podaje znak liczby');

writeln('podaj liczbe do badania');

readln(a);

if a>0 then writeln ('liczba jest dodatnia')

else

if a<0 then writeln ('liczba jest ujemna')

else

if a=0 then writeln('liczba jest zerowa');

readln;

end.

program znak_liczby_2;

var a,b,c:real;

procedure znaczek(liczba_a:real);

begin

if liczba_a>0 then writeln ('liczba jest dodatnia')

else

if liczba_a<0 then writeln ('liczba jest ujemna')

else

if liczba_a=0 then writeln('liczba jest zerowa');

end;

begin

writeln ('program podaje znak liczby');

writeln('podaj liczbe do badania');

readln(a);

znaczek(a);

readln;

end.

program znak_liczby_3;

var a,b,c:real;

procedure znaczek(liczba_a:real; var liczba_b:real);

begin

if liczba_a>0 then liczba_b:=1

else

if liczba_a<0 then liczba_b:=-1

else

if liczba_a=0 then liczba_b:=-0;

end;

begin

writeln ('program podaje znak liczby');

writeln('podaj liczbe do badania');

readln(a);

znaczek(a,b);

if b>0 then writeln ('liczba jest dodatnia')

else

if b<0 then writeln ('liczba jest ujemna')

else

if b=0 then writeln('liczba jest zerowa');

readln;

end.

1

---