Question

Запиши программу на языке Паскаль для: y = {0, если x ≤ 0 {x, если 0 < x ≤ 1 {x², если x > 1 (y:3:0) Запусти программу и введи значение x = 13 Смотреть ответ tolkuevgg tolkuevgg Ответ: program ggvfgg; var x, y: real; bool: boolean; begin readln(x); begin if x <= 0 then y := 0 end ; begin if x < 1 then y := x end ; begin if x > 1 then y := sqr(x) ; end; writeln(y: 3: 0); end.

Answer 1

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

pascalCopy code
program ggvfgg;

var
  x, y: real;

begin
  readln(x);

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

  writeln(y:3:0);
end.

Когда вы запустите эту программу и введете значение x = 13, она выведет значение y в соответствии с условиями задачи.