Question

Составить программы: (Паскаль) 1-Целое число М вводится с клавиатуры. Если оно неотрицательное, то увеличить его на 3. В противном случае — уменьшить на 3. 2-Дано целое число. Определить является ли оно отрицательным?

Answer 1

Ответ:

1.

program Zadacha;

var M: integer;

begin

 readln(M);

 if(M>=0) then M:=M+3

 else M:=M-3;

 writeln(M)

end.

2. program Zadacha2;

var a:integer;

begin

 read(a);

 if (a<0) then writeln('A - отрицательное')

           else('А - неотрицательное');

end.

Answer 2

1)

var M: integer;

begin

read(M);

if (M > 0) then

writeln(M+3)

else

writeln(M-3);

end.

2)

var a: longint;

begin

read(a);

if (a < 0) then

writeln( a, ' ', 'является отрицательным')

else

writeln( a, ' ', 'не является отрицательным')

end.

     

Answer 3

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

1. Программа для увеличения или уменьшения числа на 3 в зависимости от его знака:

pascalCopy code
program IncreaseOrDecrease;
var
  M: integer;
begin
  writeln('Введите целое число M:');
  readln(M);

  if M >= 0 then
    M := M + 3
  else
    M := M - 3;

  writeln('Результат:', M);
end.

2. Программа для определения, является ли целое число отрицательным:

pascalCopy code
program CheckNegative;
var
  num: integer;
begin
  writeln('Введите целое число:');
  readln(num);

  if num < 0 then
    writeln('Число является отрицательным.')
  else if num = 0 then
    writeln('Число равно нулю.')
  else
    writeln('Число является положительным.');
end.

Вы можете скопировать эти программы в среду разработки Pascal и выполнить их, чтобы убедиться, что они работают правильно.