881 500 байт
Объяснение:
Дано:
K = 860 * 820 = 705 200 точек
N = 1 024 цветов
Найти:
I
1 024 = 2^i
1 024 = 2¹⁰
i = 10 бит
I = 705 200 * 10 = 7 052 000 бит = 881 500 байт ≈ 860,84 Кбайт
1 байт = 8 бит
1 Кбайт = 1 024 байт
I = K * i
I - информационный объём изображения (размер файла, содержащего изображение)
K - количество точек (пикселей)
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
N = 2^i
N - количество цветов в палитре
i - глубина цвета (число бит, используемых для записи цвета одного пикселя)
1. условные операторы «if» и «else»
2. Если [условие] То [оператор 1]
Иначе [оператор 2];
3. Если [условие] То [оператор];
4. == для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>
5. if условие then действие else действие;
6. Условный оператор состоит из трёх слов IF ELSE THEN. Здесь <условие> просто помещает значение на вершину стека, IF анализирует флаг, и если: он не равен нулю, то выполняются выражения до ELSE или THEN ; если он равен нулю, то выполняется выражения между ELSE и THEN.
// Внимание! Если программа не работает, обновите версию!
function sn(n:integer):integer; // сумма цифр числа
begin
n:=Abs(n);
Result:=0;
while n>0 do begin
Result+=n mod 10;
n:=n div 10
end
end;
begin
var (n,a,b):=ReadInteger3('Введите n,a,b через пробел:');
var m:=ArrRandom(n,a,b); m.Println;
var k:=ReadInteger('k=');
Writeln('Найдено чисел: ',m.Where(t->sn(t)=k).Count)
end.
Пример
Введите n,a,b через пробел: 15 -50 60
43 2 42 -26 -34 57 45 44 29 -41 -4 1 -17 38 -19
k= 7
Найдено чисел: 2