Uses System;
var x: real;
{ процедура функция }
function y( x: real): real;
var a,b,c: real;
begin
a:=2.8; b:= -0.3; c:=4;
if x<1.2 then Result:=a*Sqr(x)+b*x+c
else if x>1.2 then Result:=(a+b*x)/Sqrt(x*x+1)
else Result:=a/x+Sqrt(x*x+1);
end;
{ основная программа }
begin write('Задайте значение x ');
readln(x);
writeln('Значение функции y = ',y(x));
end.
<span>
</span>
1)<span>1110001000+110100100=100+210=310 </span>
<span><span>2) 1001001101+1111000= 294,5-60=234,5</span></span>
<span><span><span>3) 111100010,0101+1111111,01= нз</span></span></span>
<span><span><span><span>4) 1010111001-1010001011= 348,5-325,5=23</span>
<span>5) 1110101011-100111000= 469,5-156=313,5</span>
<span>6) 1110111000,011-111001101,001= нз</span>
<span>7) 1011010*1000010= 47*33=1551</span>
<span>8) 111010110:1010= 234,5:5=46,9</span></span></span></span>
Главное свойство любой системы – возникновение системного эффекта. Заключается оно в том, что при объединении элементов в систему у системы появляются новые качества, которыми не обладал ни один из элементов в отдельности.
<span>В качестве примера системы рассмотрим самолет. Главное его свойство – способность к полету. Ни одна из составляющих его частей в отдельности (крылья, двигатели и т.д.) этим свойством не обладает, а собранные вместе строго определенным способом, они такую возможность обеспечивают. Вместе с тем, если убрать из системы «самолет» какой-нибудь элемент (например, крыло), то не только это крыло, но и весь самолет потеряет способность летать.
</span>
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
Writeln(Range(15,22).Average)
end.
Результат
18.5
а) 1111 , 11111 , 111111 , 1111111 ...
б) 1000 , 10000 , 100000 , 1000000 ...
в) 101 , 111 , 101 . 111 , 101 ...
Вроде так ;Р