Найдите значение функции - Pascal ABC

Формулировка задачи:

Найдите значение функции У

Код к задаче: «Найдите значение функции - Pascal ABC»

textual
program pr;
var
  y: real;
  x, z: integer;
begin
  writeln('Введите значение x');
  readln(x);
  writeln('Введите значение z');
  readln(z);
  if x < -1 then
    y := (abs(x * x + 4)) / (2 * x - z);
  if x >= -1 then
    y := (z - x) * (z - x);
  writeln('y= ', y);
end.

15   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ