М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
veroonikanovit
veroonikanovit
12.04.2023 13:55 •  Информатика

Много !

цифровая фотография имеет размер 100х200 pi занимает 25000 байт. определите размер цветовой палитры.​

👇
Ответ:
Tina2802
Tina2802
12.04.2023

Объяснение:

i=h*w*i

i= (25000*8)/(100*200)=10  глубина цвета

N=2^10 = 1024 -цветов

Я не уверен

Возможно не надо переводить в биты и тогда I=1.25

n=2^2 =4 это куда реалистичнее

4,4(96 оценок)
Открыть все ответы
Ответ:
gjdhxhdbc
gjdhxhdbc
12.04.2023

program z1;

var a: array [1..15] of real;

i, k, b: integer;

proizv: real;

begin

proizv:= 1;

a[1]:= 0.01;

a[2]:= -3;

a[3]:= 0;

a[4]:= 1.25;

a[5]:= -371;

a[6]:= 0.5;

a[7]:= -0.1;

a[8]:= 1.2;

a[9]:= -5;

a[10]:= -172.3;

a[11]:= 19783;

a[12]:= -2.7;

a[13]:= 43.51;

a[14]:= 0;

a[15]:= -0.02;

b:= -3;

k:= 0;

for i:=1 to 15 do

begin

if (a[i] <> 0) and (a[i] > b) then

begin

proizv:= proizv * a[i];

k:= k+1;

end;

end;

writeln('Количество чисел, подходящих условию: ', k);

writeln('Произведение чисел, подходящих условию: ', proizv);

end.

Объяснение:

На фото нарисована блок-схема, она немного криво сфоткана, надеюсь разберёшься. Если есть вопросы - задавай :)


с информатикой надо. Составить блок-схему алгоритма и программу на Паскале для обработки массива из
с информатикой надо. Составить блок-схему алгоритма и программу на Паскале для обработки массива из
4,6(21 оценок)
Ответ:
zara1984
zara1984
12.04.2023
1)program Mas;uses crt; const nmax=100; var x:array[1..nmax]of Integer; i,n,b,bcol,proz:Integer; begin proz:=1; repeat begin ClrScr; Write('Введите размер одномерного массива(n),n='); Read(n); end; until n<=nmax; Writeln('Введите значения элементов массива:'); for i:=1 to n do Read(x[i]); Writeln('Введенный массив:'); for i:=1 to n do Write(x[i],' '); Writeln; Write('Введите число B:'); Read(b); for i:=1 to n do if x[i]<b then inc(bcol); Writeln('Количество элементов меньших B:',bcol); for i:=1 to n do proz:=proz*x[i]; Writeln('Произведение всех элементов массива:',proz); Readln; end.
2)program p1;var    x:array[1..100] of integer;    max,i,n:integer; begin write('Введите количество элементов='); readln(n); writeln('Исходный массив'); randomize; for i:=1 to n do  begin   x[i]:=random(101)-50;   write(x[i]:3);   if (x[i]>=max) then max:=x[i];  end; writeln; writeln('Новый массив'); for i:=1 to n do  begin   if (abs(x[i])=max) and (x[i]<>max) then x[i]:=1;   if (x[i]<>max) and (abs(x[i])<>max) then x[i]:=0;   write(x[i]:3);  end; readln end.
3)var  a: array[1..15] of integer;   i: integer;   av: integer;   begin   randomize;   for i := 1 to 15 do a[i] := random(40) + 10;   writeln('Исходный массив: ');   for i := 1 to 15 do write(a[i], ' ');   writeln;   av := 1;   for i := 1 to 15 do     if a[i] mod 7 = 0 then av := av * a[i];   if av = 1 then writeln('Массив не содержит элементов , которые кратны 7!')   else writeln('Произведение равно: ', av); end.
4)uses crt;const n=31; var a:array[1..n] of integer;     i:byte;     max:integer;     sr:real; begin clrscr; writeln('Vvedite temperaturu po dnyam:'); sr:=0; for i:=1 to n do   begin     write(i,' maya: ');     readln(a[i]);     sr:=sr+a[i]/31;   end; clrscr; writeln('Massiv temperatur:'); max:=a[1]; for i:=1 to n do   begin     write(a[i],' ');     if a[i]>max then max:=a[i];   end; writeln; writeln('Samye teplye dni s temperaturoj ',max,' grad'); for i:=1 to n do if a[i]=max then writeln(i,' maya'); writeln; write('Srednya temperatura=',sr:0:1,' grad'); readln end.
5)program PROG5_2;const   N = 10;   var   a     : array [1..N] of integer;   i     : integer;   imin, imax : integer;   d, c, s     : integer;   begin     {Заполнение массива а случайными числами}    randomize;    for i:=1 to N do      a[i]:=random(100);     {Вывод массива а на экран}   writeln('Исходный массив:');   for i:=1 to N do     write(a[i]:6);   writeln;     {Нахождение индексов наибольшего и наименьшего эемаентов массива}  imin:=1;   {Индекс наименьшего элемента}  imax:=1;   {Индекс наибольшего элемента}  for i:=2 to N do  begin    if a[i] < a[imin] then       imin :=i;      if a[i] > a[imax] then      imax := i;  end;    {Вывод ответа}  writeln('Наименьший элемент a[',imin,']=',a[imin]);  writeln('Наибольший элемент a[',imax,']=',a[imax]);    {Подсчет количества и суммы чисел между минимальным и максимальным значениями}   c:=0;      {Количество}   s:=0;      {Сумма}   for i :=imin to imax do
4,6(40 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ