1) В процессе преобразования растрового графического изображения количество цветов уменьшилось с 256 до 8. Во сколько раз уменьшится объем занимаемой им памяти? 2) Какой объем видеопамяти необходим для хранения двух страниц изображения при условии, что разрешающая дисплея равна 640 * 350 пикселей, а количество используемых цветов – 16?
Четыре времени года:
Времена года состоят из четырех сезонов: лето, когда дни наиболее длинные, а солнце поднимается высоко над горизонтом; зима - дни короткие, а ночи длинные; межсезонные времена года весна и осень, на которые приходится период переходной смены сезонов лета и зимы.
времена года летовремена года зима
Весна - март, апрель, май. Природа начинает пробуждение после зимней спячки, начинается период роста и цветения растений.
Лето - июнь, июль, август. Период активного размножения и роста растительного мира.
Осень - сентябрь, октябрь, ноябрь. Замедление роста, подготовка природы к зимнему сну.
Зима - декабрь, январь, февраль. Период затишья, длительного сна природы.
(для умеренного пояса, центральной части России)
Лето, сменяет прохладная осень, потом наступает зимняя стужа и после приходит долгожданная весенняя оттепель - и так бесконечное количество раз, из года в год. В чём же таинство этого природного явления и почему происходит смена времен года на Земле?
Чтобы в полной мере визуально представить картину как это происходит, стоит рассказать, как движется земной шар в космосе.
Этих движений два:
1) Земля вокруг своей оси (условной линии, проходящей через центр северного и южного полюсов) совершает за сутки полный оборот. Благодаря этому астрономическому явлению день сменяет ночь. Когда на континентах, обращённых к Солнцу, горячий полдень, на неосвещаемых континентах - глубокая ночь.
2) Земля перемещается по эллипсовидной траектории вокруг Солнца, совершая полный оборот в течение 1 года.
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.