Камень!
Камень может быть носителем информации:)
Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.
Program test;
const PI=3.14;//Пи делаем константой, потому что оно не меняестся
var
r,s,c:real;//Переменные типа real что бы можно было записывать дробные значения
begin
Write('Введите радиус: ');
Readln(r);//вводим радус
s:=PI*sqr(r);//вычисляем площадь
c:=2*PI*r;//вычисляем длину окружности
Writeln('S = ',s);//
Writeln('P = ',c);//Выводим результат
end.
Дано:
N=16 символов
l=1/16 Мбайта=64 Кбайта=65536 байт=524288 бит
Найти:
К
Решение:
2i(2 в степени i)=N;=2i=16;i=4 бита
l=k*i; k=l/i=524288/4=131072 символа
Ответ:131072 символа