Question

Величина х-положительная Величина х-отрицательная Запись на языке паскаль

Answer 1

Var a:integer;
begin
read(a);
if (a>=0) then write('+') else write('-');
end.

Answer 2

Если величина x положительная, то ее можно записать следующим образом на языке Pascal:

if x > 0 then
  writeln('x is positive');

Если величина x отрицательная, то ее можно записать следующим образом на языке Pascal:

if x < 0 then
  writeln('x is negative');