Program age;
var m:integer;
begin
readln(m);
if (m<=13) then writeln('детство');
if (m>=14)and(m<=24) then writeln('молодость');
if (m>=25)and(m<=59) then writeln('<span>зрелость</span>');
if (m>=60) then writeln('старость')
end.
Количество цветов в палитре определяется формулой Хартли:
N=2^i (где N - количество цветов, i - "вес" 1 px в битах).
1. Найдем количество пикселей в изображении: 256*256=2^8 * 2^8 = 2^16 px
2. Определим "вес" всех рх, переведя Кб в биты: 8*2^13 (бит) = 2^3 * 2^13 = 2^16 (бит)
3. Разделим "вес" всего изображения на количество рх (то есть найдем "вес" 1 рх в битах): 1 рх = 2^16 / 2^16 = 1 бит
4. Следовательно (см. начало), количество цветов N=2^1=2 (т.е. изображение двухцветное, скорее всего - ч/б)
01.<span>program massiv5;</span>02.<span>uses crt;</span>03.<span>const N=10;</span>04.<span>type x=array [1..<span>N] </span>of integer;</span>05.<span>var a:x;</span>06.<span>i:integer;</span>07.<span>max:integer;</span>08.<span>imax:integer;</span>09.begin10.clrscr;11.randomize;12.<span>for i:=1 to <span>N </span>do</span>13.begin14.<span>a[i]:= -50+random(101);</span>15.<span>write (A[i]:5)</span>16.<span>end;</span>17.<span>writeln;</span>18.<span>imax:=1;</span>19.<span>max:=A[1];</span>20.<span>for i:=2 to <span>N </span>do</span>21.<span>if <span>max<a[i] </span>then</span>22.begin23.max:=a[i];24.imax:=i25.<span>end;</span>26.<span>writeln (‘Максимальный элемент в массиве=’,max:5);</span>27.<span>writeln (‘Его индекс=’,imax:5);</span>28.readln29.<span>end<span>.</span></span>
Алгоритм - Действия которые нужно выполнить строго в таком порядке , что бы получить желанный результат
