Ну в папке лежат бумажки какие-то а карандаш он маленький если просунуть руку пониже то ты его найдёш
program abc;
var a,b,c:integer;
begin
writeln('Заштрихованная область=x,y');
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.
Находим ту степень, в которую надо возвести двойку, чтобы получить N.