const N = 100;
var i: integer;
var A: array [1..N] of integer;
var s,acp: double;
var f: file of integer; // создаем типизированный файл
begin
assign(f,'C:\1\text.txt');
// Открытие файла в режиме записи
rewrite(f);
randomize;
For i:= 1 to N do
begin
a[i]:=random(201)-100;
write(f,a[i]);
end;
// Открытие файла в режиме чтения
reset(f);
// Здесь будем считать сумму всех элементов массива
s:= 0;
For i:= 1 to N do
begin
read(f,a[i]);
write(a[i],' ');
s:= s + a[i];
end;
close(f);
// Среднее арифметическое
acp := s/N;
// Теперь здесь будем считать сумму в числителе под корнем
s:=0;
For i:= 1 to N do
begin
s:=s+(a[i]-aсp)*(a[i]-aсp);
end;
s:=sqrt(s)/(N-1);
writeln(сhr(10),'Среднеквадратичное отклонение: ',s);
end.
2 Кбайт/сек
Объяснение:
V = I / t, где
V - скорость передачи информации
I - количество информации в сообщении
t - время передачи сообщения
I = К * i, где
I - количество информации в сообщении
К - количество символов в тексте
i - количество информации, которое несет каждый символ алфавита
N = 2^i, где
N - мощность алфавита
i - количество информации, которое несет каждый символ алфавита
Дано:
t = 2 мин 8 сек = 128 сек = 2⁷ сек
N = 256 = 2⁸
К = 128 страниц * 32 строки * 64 символа = 2⁷ * 2⁵ * 2⁶ = 2¹⁸ символов
Найти:
V
2⁸ = 2^i
i = 8 бит = 1 байт
I = 2¹⁸ * 1 = 2¹⁸ байт
V = 2¹⁸ / 2⁷ = 2¹¹ байт/сек = 2 Кбайт/сек
1 мин = 60 сек
1 байт = 8 бит
1 Кбайт = 1024 байт = 2¹⁰ байт
Выложу решение полного уровнения.
var a,b,c,d:integer; x1,x2:real;
begin
writeln('Введите коэффициенты');
readln(a,b,c);
d:=b*b-4*a*c;
if (d<0) then writeln('Нет решения')
else if (d=0) then
begin
x1:=-b/(2*a);
writeln('x=',x1);
end
else begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1,'x2=',x2);
end;
readln
end.