Question

Написать программу на языке Паскаль. Условие: если значение переменной х<0, то вычислить квадрат переменной х, иначе значение х уменьшить в 2 раза.

Answer 1

/////////////////Pascal abc/////////////////
Программа во вложении

Answer 2

Я могу помочь вам написать программу на языке Паскаль. Вот один из возможных вариантов решения вашей задачи:

program Solution;
var x: real;
begin
  readln(x); // вводим значение переменной x
  if x < 0 then // если x меньше нуля
    x := x * x // то вычисляем квадрат x
  else // иначе
    x := x / 2; // то уменьшаем x в два раза
  writeln(x); // выводим результат
end.

Эта программа считывает значение переменной x с клавиатуры, затем проверяет, является ли оно отрицательным. Если да, то программа вычисляет квадрат x и выводит его на экран. Если нет, то программа делит x на два и выводит полученное значение на экран. Это соответствует условию задачи. Надеюсь, это вам поможет.