Ответ:
var
ar: array [1..20] of Integer;
a, b, i: Integer;
begin
Randomize;
for i := Low (ar) to High (ar) do begin
ar [i] := Random (47) - 12;
Write (ar [i], ' ');
end;
WriteLn;
Write ('A, B = ');
ReadLn (a, b);
for i := Low (ar) to High (ar) do
if (ar [i] >= a) and (ar [i] <= b) then
Write (ar [i], ' ');
ReadLn;
end.
Program otvet0x40;
var x,i:integer;
begin
for i:=0 to 40 do begin
x:=sqr(i)+i+41;
write(' x(',i,')=',x);
end;
<span>end. </span>
Границы фрагмента создаются интуитивно.
Номер 2
1 Программное обеспечение -3
2 Программа -1
3 Прикладная программа -2
Всего символов в письме 30*48 = 1440
использовано памяти на символ на символ 1440/900 = 1,6 байт = 12,8 бит, округляем = 13 бит
<span>2^13 = 8192</span>