А) Программное обеспечение
б) О<span>перационная система
в) Приложения</span>
1. 1)2
2)0
3)0
4)12
5) 0
6)3
2. 21; 15; 45
var
x,y:real;
begin
Write('Введите число: '); Read(x);
if x<=0 then y:=-3
else
if x<=1 then y:=x else y:=sqr(x);
Writeln('y=',y)
end.
<em>VAR</em>
<em> ind: LongInt;</em>
<em> b: Array [1..10] of Real;</em>
<em>BEGIN</em>
<em> Writeln('Введите 10 чисел (элементы массива):');</em>
<em> for i := 1 to 10 do Read(b[i]);</em>
<em> </em>
<em> Write('Введите индекс эл. массива: ');</em>
<em> Read(ind);</em>
<em> Write(b[ind]);</em>
<em>END.</em>
1 байт= 8 бит
34- кол-во символов
8*34=272 бита
ответ: 2