var
s, r, l: real;
begin
read(r);
s := pi * r * r;
l := 2 * pi * r;
write(s:0:3, #10, l:0:3);
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.
С чем пмочь нечего нет кртинка черноя
2^(3+10+10+4)=2^27 бит
3 - это степень бит в байте,
10 - степень КБ в МБ
10 - степень Б в КБ
4 - степень 16
(все в двоичной форме)