<span>Дано: К = 600 * 350 = 210000 пикселей N = 8 цветов в палитре Найти - I Решение: Найдем, какое количество информации (i) содержит 1 пиксель, воспользовавшись формулой N = 2^i: 8 = 2^i i = 3 бита. Если 1 пиксель занимает 3 бита памяти, то 210000 пикселя занимают^ I = K * i = 210000 * 3 = 630000 бит = 630000 / 8 байт = 78750 байт = 78750 / 1024 кбайт = 76 кбайт. (ответ округлен до целых) Ответ: 76 кбайт.</span>
Можно сначала найти за сколько скачивается файл, если за секунду качается <span>1536 бит, а потом найти уже размер другого файла, но более рационально увидеть, что в первом случае скорость в 2 раза больше, чем в другом, а раз время скачивания одинаковое, и одна скорость больше другой в 2 раза, то и получается, что 2 файл в 2 раза меньше 1 файла, т.е. получается, что он равен 40 кбайт</span>
Uses
System.Collections.Generic,
System;
var
simple: List<integer> := new List<integer>;
i, n, p: integer;
m: longint;
begin
read(n);
for i := 2 to n do
begin
m := 1;
foreach s: integer in simple do
m := m * i mod s;
if m > 0 then begin
simple.Add(i);
// write(i, ' ');
end;
end;
writeln();
foreach s: integer in simple do
begin
if Math.Pow(2, s) - 1 <= longint.MaxValue then begin
m := round(Math.Pow(2, s) - 1);
if (m <= n) and simple.Contains(m) then
write(m, ' ');
end;
end;
end.
var
a:array[1..100, 1..100] of integer;
n, m, count, i, j, max:integer;
begin
randomize;
write('m = ');
readln(m);
write('n = ');
readln(n);
writeln('Исходный массив :');
for i := 1 to m do
begin
for j := 1 to n do
begin
a[i, j] := random(11);
write(a[i, j], ' ');
end;
writeln;
end;
max := a[1, 1];
for i := 1 to m do
for j := 1 to n do
if a[i, j] > max then
max := a[i, j];
writeln('Max = ', max);
for i := 1 to m do
begin
count := 0;
for j := 1 to n do
if a[i, j] = max then
inc(count);
writeln('В строке', i ,' находится', count, ' максимальных элементов');
end;
readln;
end.