var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
1.1 байт-8 бит.
1200:8=150(байт)
Ответ : 150 байт.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var a:=1.Step(2).Take(10).ToArray; a.Println;
var b:=ArrRandom(10,5,15); b.Println
end.
<u><em>Тестовое решение</em></u>
1 3 5 7 9 11 13 15 17 19
14 5 13 6 10 9 15 9 14 5
201 258 7DA Советую скачать двоичный калькулятор)
