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

Var
    x: real;

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

Павел Микученис 2019-07-13 10:21:59

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

Алина Кужлева 2019-07-13 10:29:45

ответ подходит заданию, если вы размышляете что не подходит, но означает не довольно точно задание описано

Илья Куракевич 2019-07-13 10:30:47

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

Данька Байцев 2019-07-13 10:36:57

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

Василий Люосев 2019-07-13 10:40:31

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

Аринка Фискинд 2019-07-13 10:45:11

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

Vladislav Zaborov 2019-07-13 10:47:56

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

Aljona Delova 2019-07-13 10:51:35

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

Кулеметьева Галя 2019-07-13 10:52:50

x^2 отдаёт только для х<0

Василиса Ревелис 2019-07-13 11:01:32

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

О проекте

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

Добро пожаловать!