В вашем тексте 56 символов, чтобы найти объем сколько бит нужно умножить число символов на 8бит . Таким образом получается 448. 56×8=448 .Надеюсь понятно объяснил)
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin var (x,a):=ReadReal2('Введите х и a через пробел:'); var y:real; if x<=0 then y:=2*Sin(Abs(x)) else if x<=5 then y:=Sqrt(x) else if x<=10 then y:=2*x*x-Sqrt(x) else y:=Cos(2*x)/a; Writeln('Y=',y) end.
<u>Вариант 2</u>
begin var (x,a):=ReadReal2('Введите х и a через пробел:'); Writeln('Y=', x<=0 ? 2*Sin(Abs(x)) : x<=5 ? Sqrt(x) : x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a) end.
<u>Примеры</u> Введите х и a через пробел: 12.4 -3 Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156 Y=64.8716810842415
Var x1,y1,x2,y2,x,y,x3,y3,x4,y4:integer; begin read(x1,y1,x2,y2,x,y); x3:=x1; y3:=y2; x4:=x2; y4:=y1; if (x<x1) and (y<=y3) and (y>=y1) then writeln('W') else if (x<x1) and (y>y3) then writeln('NW') else if (x>=x1) and (x<=x2) and (y>y3) then writeln('N') else if (x>x2) and (y>y3) then writeln('NE') else if (x>x2) and (y<=y2) and (y>=y4) then writeln('E') else if (x>x2) and (y<y4) then writeln('SE') else if (x<=x4) and (x>=x1) and (y<y4) then writeln('S') else if (x<x1) and (y<y1) then writeln('SW'); end.