<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses NumLibABC;
begin
var oL:=new Zeroin(x->Ln(x)-(0.5/Sqr(x)),1e-8);
Writeln('x=',oL.Value(0.1,1.5):0:8)
end.
<u>Пример с точностью 10⁻⁸</u>
x=1.32786401
<u>Замечание:</u> Исходный текст класса Zeroin в составе библиотеки численных методов NumLibABC находится в стандартной поставке PascalABC.NET
type
mas = array [1..10] of integer;
var
m : mas;
a,l : integer;
function re () : integer; //Считываем число
var a : integer;
begin
writeln ('Введите число');
readln (a);
Result :=a;
end;
function C(var m : mas; a : integer) : integer; //Разбиваем на числа
var i : integer;
begin
i := 0;
While a > 0 do
begin
i := i +1;
m[i] := a mod 10;
a := a div 10;
end;
Result := i;
end;
procedure wr (a : mas; l : integer); // Вывод массива
var i : integer;
begin
writeln ('Resultat :');
for i := 1 to l do
write (a[i],' ');
end;
procedure sort (var a : mas; l : integer); // перевернуть массив
// т.е 1234 -> 4321
var i,buf : integer;
begin
for i := 1 to l div 2 do
begin
buf := a[l-i+1];
a[l-i+1] := a[i];
a[i] := buf;
end;
end;
begin
a := re();
l := C(m,a);
sort (m,l);
wr (m,l);<span>
end.
на примере числа
125
после выполнения функции C
m[1] = 5 m[2] =2 m[3] =1
после выполнения процедуры Sort
m[1] =1 m[2] =2 m[3] =5
Вывод на экран элементов массива через пробел
1 2 5
</span>
Ответ: 256 килобайт.
Объяснение:
8 бит = 1 байт = 2³;
1 килобайт = 1024 байт = 2¹⁰;
2048 килобит = килобайт.
Ответ:
1. Каждая буква, включая пробелы и знаки препинания, являются символами. В данном примере 38 символов, значит 38 * 16 бит = 608 бит
Ответ: 608 бит
2. Что бы узнать количество символов в документе, сначала необходимо узнать сколько символов на одной странице
50 * 64 = 3200 символов.
Далее нужно узнать сколько символов на 16-ти страницах
3200 * 16 = 51200 символов
Каждый символ весит 16 бит
51200 * 16 = 819200 бит
Переводим биты в байты
819200 / 8 = 102400 байт
Переводим байты в Кбайты
102400 / 1024 = 100 Кбайт
Ответ: 100 Кбайт