3) var a:array [1..1000] of longint; n,k,i:integer;
<span>begin </span>
<span>readln(n); k:=0;</span>
for i:=1 to n do
read (a[i]);
for i:=1 to n do
<span>if (a[i]>5) and (a[i]<19) then k:=k+a[i];
writeln(k);
readln; end.</span>
V = K * I, где:
V - объем.
K - размер изображения.
I - количество бит на цвет.
N = 2^i, где:
N - количество цветов.
Дано:
I1 = 24 бит.
N2 = 16 цветов.
Найти: V1/V2.
Найдем количество бит на цвет при вторичном сохранении:
N = 2^i.
16 = 2^i.
I2 = 4 бита.
Найдем во сколько раз одно изображение больше другого.
V1/V2 = (K * I1)/(K * I2).
Так как сохраняем тот же рисунок, то размер изображения не меняется, его можно сократить.
V1/V2 = I1/I2.
V1/V2 = 24/4.
V1/V2 = 6.
Ответ: объем изменился в 6 раз.
Ну раз поскакаль, то так
l:=2*3.14*r;
Эта команда рассчитает длину окружности по радиусу.
Если нужна программа полностью - надо уточнять это в условии.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(5).Println(',')
end.
<u>Результат</u>
1,2,3,4,5