Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.
1) N = 2^i
64 = 2^i
i = 6 бит глубина кодирования одного символа
2) 30 * 4 = 120 строк на 4 страницах текста
3) 7200 байт = 7200 * 8 = 57600 бит информационный объем сообщения
4) 57600 бит / 6 бит = 9600 всего символов в этом сообщении
5) 9600 символов / 120 строк = 80 символов в 1 строке этого сообщения
Ответ: 80 символов в 1 строке
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит (округляем в большую сторону так как кусками тут быть не может)
Глубина цвета бит (округляем в большую сторону так как кусками тут быть не может)
Общий вес
I = K * i (K - кол-во пикселей, i - Глубина цвета)
Отношение объемов информации раз