Question

Составь и запиши программу на языке Паскаль, которая, если введенное число отрицательное, меняет его на противоположное.

Answer 1

var

x:integer;

begin

readln(x);

if x<0 then x:=abs(x);

writeln(x);

end.

Answer 2

Вот программа на языке Паскаль, которая меняет отрицательное число на противоположное:

pascalCopy code
program ChangeNegativeToPositive;

var
  number: Integer;

begin
  writeln('Введите число:');
  readln(number);

  if number < 0 then
  begin
    number := -number;
    writeln('Число изменено на противоположное: ', number);
  end
  else
  begin
    writeln('Число положительное или равно нулю: ', number);
  end;

  readln;
end.

Эта программа сначала запрашивает у пользователя ввод числа. Затем она проверяет, является ли число отрицательным (меньше нуля). Если число отрицательное, оно заменяется на противоположное, и программа выводит измененное число. В противном случае программа просто выводит введенное число, сообщая, что оно положительное или равно нулю.