Решите в pascalABC 1 вариант

Question

Решите в pascalABC 1 вариант

---

Answer 1

Var
    x: real;

begin
    readln(x);
    if x < 0 then
        writeln(x * x)
    else if x > 0.3 then
        writeln(-x)
    else writeln(x);
end.

Comments

Да всё не то , но я уже написал

---

ответ соответствует заданию, если вы думаете что не соответствует, но значит не достаточно точно задание описано

---

правильное задание , введя твой ответ мне просило ввести число а взамен а я получал противоположное число а это мне и не надо совершенно

---

а что тебе надо? какое число ты вводил, какой ответ получал и какой при этом ожидал?

---

почитай внимательно задание , по твоей проге я вводил 1 а получал -1 а должен 1 если 2 то у тебя -2 а надо было 4

---

почитай внимательно задание , по твоей проге я вводил 1 а получал -1 а должен 1 если 2 то у тебя -2 а надо было 4

---

почитай внимательно задание , по твоей проге я вводил 1 а получал -1 а должен 1 если 2 то у тебя -2 а надо было 4

---

правильно. у(1) = -1, потому что 1 > 0,3 значит возвращаем -х. Все верно

---

x^2 возвращает только для х<0

---

Мне кажется, вы сами не понимаете свое задание