Цветное растровое графическое изображение содержит 256 цветов и имеет размер 20x10 точек . Какова глубина цвета данного изображения?

задача 1

запишем условие: строк=40, символов=50, страниц=10, I=12500 байт, N-?

решение: посчитаем общее кол-во символов в тексте К=40*50*10=20000

переведем информационный объем в биты I=12500*8=100000 бит

из формулы I=K*i найдем i: i=I/K=100000/20000=5бит

из формулы мощности алфавита найдем мощность

N=2^5=32                  это и есть ответ

задача2

запишем условие: страниц=180, символы=2048, N=128, I(Кб)-?

решение: вычислим общее кол-во символов в тексте

К=180*2048=368640

найдем вес одного символа алфавита N=2^i, 128=2^i, 2^7=2^i, i=7 бит

подсчитаем информационный объем текста I=368640*7=2580480 бит=

322560 байт=315 Кб                это и есть ответ

задача3

запишем условие: N=87, K=200, I-?

решение: из формулы мощности алфавита найдем i с учетом того, что 87 не является целой степенью двойки. ближайшая мощность алфавита -64, поэтому i=6 бит

вычислим информационный объем I=K*i=200*6=1200 бит/8=150 байт

Если числа натуральные, то они не только неотрицательны, - они все положительны, поскольку начинаются с единицы. Посему проверка на отрицательность делаться не будет - ввод чисел меньше 1 противоречит условию задачи.

Вариант 1. Без операторов цикла.
var
  a,b,c,d:integer;
begin
  Write('Введите 4 натуральных числа: ');
  Read(a,b,c,d);
  if a mod 2=0 then Writeln('Корень из ',a,' равен ',sqrt(a));
  if b mod 2=0 then Writeln('Корень из ',b,' равен ',sqrt(b));
  if c mod 2=0 then Writeln('Корень из ',c,' равен ',sqrt(c));
  if d mod 2=0 then Writeln('Корень из ',d,' равен ',sqrt(d));
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775

Вариант 2. С оператором цикла.
var
  i,n:integer;
begin
  for i:=1 to 4 do begin
    Write('Введите натуральное число: ');
    Read(n);
    if n mod 2=0 then Writeln('Корень из ',n,' равен ',sqrt(n))
    end
end.

Пример решения
Введите натуральное число: 3
Введите натуральное число: 8
Корень из 8 равен 2.82842712474619
Введите натуральное число: 16
Корень из 16 равен 4
Введите натуральное число: 12
Корень из 12 равен 3.46410161513775

Вариант 3. С массивами
var
  i:integer;
  a:array[1..4] of integer;
begin
  Write('Введите 4 натуральных числа: ');
  for i:=1 to 4 do Read(a[i]);
  for i:=1 to 4 do
    if a[i] mod 2=0 then Writeln('Корень из ',a[i],' равен ',sqrt(a[i]))
end.

Пример решения
Введите 4 натуральных числа: 3 8 16 12
Корень из 8 равен 2.82842712474619
Корень из 16 равен 4
Корень из 12 равен 3.46410161513775