Используй муактивити на касания мыши в скрипте.
Упаковка-зелёная
Марка "моя семья"
Вкус-яблочный
Цвет сока- зелёный, есть мякоть
:-)
20 букв и 10 цифр составляют алфавит объемом 30 символов. Для размещения 30 символов требуется 5 бит (2^5=32 - достаточно, а 2^4=16 - не хватает).
Для одного 8-символьного номера требуется 5х8=40 бит.
Для 40 номеров потребуется 40х40=1600 бит. Или 1600/8=200 байт.
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)
Program abc;Const n=3; m=3;Var a:array[1..n,1..m] of integer; b,y,i,j,sum:integer; srd:real; Begin Writeln('Введите числа массива: '); For i:=1 to n do For j:=1 to m do Begin Write('a[',i,',',j,']= '); Readln(a[i,j]); if a[i,j]>0 then begin sum:=sum+a[i,j]; inc(b); end else If a[i,j]<0 then Inc(y); End; If sum>0 then begin srd:=sum/1 b; Writeln('Среднее =',srd); end else Writeln('Нет положительных членов массива'); If y>0 then begin Writeln('Количество отрицательных элементов =',y); end else Writeln('Нет отрицательных членов массива');End.