Question

Дано а увеличить в 3 Раза если а отрицательное и уменьшить на 10 в обратном случае срочноодаю 75 баллов паскаль....

Answer 1

var a: integer;

begin;

 Write('a = '); Readln(a);

 if a < 0 then a := a * 3

 else a := a - 10;

 Print(a)

end.

Answer 2

Для начала, давайте разберемся с заданием.

У вас есть переменная "а", и нужно выполнить следующие действия:

1. Если "а" является отрицательным числом, увеличить его в 3 раза.
2. Если "а" не является отрицательным числом (т.е., положительное или ноль), уменьшить его на 10.

Для выполнения этих действий в псевдокоде это может выглядеть так:

markdownCopy code
Если а < 0, то
    а = а * 3
Иначе
    а = а - 10
Конец если

Чтобы языковой конструкцией написать это на Паскале, можете использовать следующий код:

pascalCopy code
var
  a: integer;

begin
  { Ввод значения переменной "а" (можете присвоить ей какое-то значение или считать его из ввода) }
  readln(a);

  { Проверяем условие и выполняем соответствующее действие }
  if a < 0 then
    a := a * 3
  else
    a := a - 10;

  { Выводим результат }
  writeln(a);
end.

Теперь, если вы хотите получить 75 баллов за этот код, вам необходимо убедиться, что код правильно выполняется и выполняет заданные условия. Если у вас есть какие-либо вопросы по коду или заданию, пожалуйста, уточните, и я постараюсь помочь!