Question

Напишите программу паскаль если x>10 или x<-10 то y=x+5

Answer 1

var x,y:real;

begin

readln(x);

if (abs(x))>10 then

y:=x+5;

writeln(y);

end.

Answer 2

Вот пример программы на языке Pascal, которая выполняет условие "если x > 10 или x < -10, то y = x + 5":

pascalCopy code
program ConditionalExample;
var
  x, y: integer;
begin
  writeln('Введите значение x: ');
  readln(x);

  if (x > 10) or (x < -10) then
    y := x + 5
  else
    y := x;

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

Эта программа сначала запрашивает значение переменной x у пользователя, а затем использует оператор if для проверки условия (x > 10) or (x < -10). Если это условие истинно, то значение y увеличивается на 5, в противном случае y остается равным x.