1.
Var a:array [1..1000] of integer;
S,i,n:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+a[i];
Writeln (S);
end.
2.
Var n,S,i:integer;
begin
S:=0;
Read (n);
For i:=1 to n do
S:=S+(1/i);
Writeln (S);
end.
3.
3 ч - 2шт
6 ч - 4шт
9 ч - 8шт
12ч - 16шт
15 18 21 умножается на 2
24ч - 256шт
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString;
var p:=Pos('-',s);
if p>0 then begin s:=s.Replace('-',' - '); Writeln(s) end
else Writeln('Дефис не найден')
end.
<u>Пример</u>
черно-белый
черно - белый
Да, верно, объём с векторным изображением меньше, чем объём с растровым, потому что в векторном всё состоит из отдельных объектов, а в растровом из пикселей.
нос - обонятельная информация, уши - звуковая информация, язык - вкусовая информация, кожа - осязательная или тактильная информация, глаза - зрительная информация
При использовании 256-цветовой палитры для хранения одной точки рисунка требуется log(2)256 = 8 бит; при использовании 2 цветов - log(2)2 = 1 бит.
20 Кбайт = 20*1024 байт = 20*1024*8 бит
Пусть K - количество точек рисунка, тогда K*8-K*1 = 20*1024*8
K = 20*1024*8/7
Первоначальный объем рисунка = (20*1024*8/7)*8 бит = 20*8/7 Кбайт ≈ 22,86 Кбайт