Question

Запиши программу на языке Паскаль для: {0, если x≤0 y= {x, если 0 {x2,если x>1 Запусти программу и введи значение x=10 Смотреть ответ Helper211 Helper211 Ответ: var x,y:real; begin write('Введите x: '); readln(x); if (x<=0) then y:=0 else if (x<=1) then y:=x else y:=x*x; writeln(y:3:0); end.

Answer 1

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

pascalCopy code
var
  x, y: real;

begin
  write('Введите x: ');
  readln(x);

  if (x <= 0) then
    y := 0
  else if (x <= 1) then
    y := x
  else
    y := x * x;

  writeln(y:3:0);
end.

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