Question

Написать программу, которая увеличивает на 3 число, вводимое с клавиатуры, если оно больше 0, в противном случае уменьшает это число на 2. Программу написать в тетрадь. Язык: Паскаль.

Answer 1

var

 a:integer;

begin

 readln(a);

 if a>0 then  

   begin

     a:=a+3;

     writeln(a);

   end

     else

       begin

         a:=a-2;

         writeln(a);

       end;

end.

Перепиши в тетрадь.

Answer 2

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

pascalCopy code
program IncreaseOrDecrease;
var
  number: integer;

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

  if number > 0 then
    number := number + 3
  else
    number := number - 2;

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

Этот код будет запрашивать у пользователя ввод числа, затем проверять его значение и увеличивать на 3, если число положительное, или уменьшать на 2, если число отрицательное или равно 0. После этого результат будет выведен на экран.