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

Решите в pascalABC 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы