Глубина цвета (качество цветопередачи, битность изображения, цветовое разрешение) — термин компьютерной графики, означающий количество бит (объём памяти), используемое для хранения и представления цвета при кодировании, либо одного пикселя растровой графики или видеоизображения
Глубина цвета определяется количеством бит на пиксель, которое может отображаться на экране. Данные хранятся в битах. Каждый бит представляет два цвета, потому что он имеет значение 0 или 1. Чем больше бит на пиксель, тем больше цветов может отображаться.
Информация всегда являлась немаловажным фактором общественного развития. С ее человечество концентрировало многовековой опыт жизни прежних поколений. Поговорка «Кто владеет информацией - тот владеет миром» подчёркивает социальную роль информации. Владение информацией открывает новые модели управления, формирует новые социальные структуры общества.
Под влиянием быстро развивающейся системы социальных коммуникаций и информации формируется информационный сектор экономики. Возникает новый капитал - знание. Под воздействием этих процессов меняется характер труда: внедряются безлюдные технологии, т.е. исчезает сам труд в непосредственном производстве, расширяется участие работников в управлении производством.
Информация как орудие продвижения прогрессивных идей всё большей прозрачности границ между странами и народами. Складывается новая система общественного богатства с использованием информационных технологий, где ценятся, прежде всего, умственные человека.
По данным ЮНЕСКО, более половины всего занятого населения наиболее развитых стран прямо или косвенно принимает участие в процессе производства, хранения и распространения информации.
Если до середины ХХ века общество имело ярко выраженный индустриальный характер, то нынешнее его состояние ученые характеризуют как постиндустриальное, рассматривая его в качестве переходного к информационному обществу.
Информационное общество — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей ее формы — знаний.
Program weight;
Var
a,b: real;
Begin
writeln('Введите ваш вес P');
readln(a);
writeln('Введите ваш рост R');
readln(b);
if a<=b-100
then writeln('Поздравляю. Ваш вес в норме')
Else writeln('Хорошо бы вам немного похудеть');
End.
В приложении рабочий файл программы
Пояснения:
1. Переменным a, b присваивается значение real, так как рост и вес могут быть не целыми числами, а дробными.
2. окончания команд writeln, readln, сортируют этапы решения и ввода по строчкам, вместо вывода всё в одну строку.
3. После условия a<=b-100 НЕ ставится точка с запятой, так как это часть одного цикла условия (IF - если). если поставить точку с запятой, то программа будет не верна
P.s. Почему-то сервис не возволяет скачать файл программы. В общем скопируйте просто из начала решения тогда