<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var s:=0.0;
for var i:=1 to n do s+=1/i;
Writeln('S=',s)
end.
<u>Пример</u>
n= 10
S=2.92896825396825
(I - информационный объем текста, K - кол-во символов, i - вес одного символа/бит на символ)
Дано:
K = 25 * 80 = 2000 шт
i = 16 бит
I - ?
Решение:
I = K * i = 2000 * 16 бит = 32000.0 бит
32000.0 бит = 4000.0 байт = 3.90625 Кбайт
Файл - это определенное количество информации, имеющее имя и хранящееся в долговременной (внешней) памяти.
Текстовый редактор - это прикладная программа, позволяющая создавать текстовые документы, редактировать их, просматривать содержимое на экране, распечатывать документ
Графический редактор - это программа создания, редактирования и просмотра графических изображений.
Кодировка 8ми битная => по байту на символ.
32 * 32 * 10 = 10240 байт.
10240 / 1024 = 10 Кб
10 / 2 = 5 с
Ответ:
program p_1;
const n=15;
var i:integer;
p:real;
a:array [1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(130)-50;
writeln('a[',i,'] = ',a[i])
end;
p:=1;
for i:=1 to n do p:=p*a[i];
writeln;
writeln('p = ',p)
end.