Ширина изображения: 6 * 256 = 1536
Высота изображения 8 * 256 = 2048
Общее количество точек в изображении 1536 * 2048 = 3 145 728
6 МБайт = 6 * 1024 * 1024 = 6 291 456
На каждую точку приходится 6 291 456 / 3 145 728 = 2 байта или 16 битов
Цвет состоит из 3 компонент (красный, зелёный, синий), поэтому на каждый цвет приходится 16 / 3 = 5 бит.
Ответ: цветовая глубина 5 бит на пиксель.
Примечание: часто используется схема, в которой на красный и синий отводится по 5 битов, а на зелёный 6, что позволяет полностью занять все 16 битов.
Var a: integer;
begin
writeln('Введите порядковый номер: ');
readln(a);
case a of
1: writeln('Мать: 1.1.2017');
2: writeln('Отец: 2.2.2017');
3: writeln('Бабушка: 3.3.2017');
4: writeln('Дедушка: 4.4.2017');
else writeln('Неверно введен порядковый номер. Попробуйте еще раз.');
end;
end.
--------
Даты вводи те, которые тебе нужны. Порядковые номера также можно изменить по собственному усмотрению.
Три основных правила безопасности в соц.сетях.
1.Знать всё про мошеничество:лотереи и конкурсы онлайн;финансовые пирамиды;спам;фальшивые программы с вирусами.
2.Защитить свою информацию:придумывать сложные пароли;использовать как минимум 2 электронных адреса-один для переписки с друзьями,второй для регистрации на сайтах,форумах, в соц.сетях.Второй адрес должен быть сложным для запоминания и воспроизведения.
3.Использовать дополнительные системы безопасности.На рынке новых технологий имеется немало программ и систем, призванных
обеспечить безопасность пользователя сети, а также его компьютера,
мобильного устройства. Подобными утилитами обязательно нужно
пользоваться.
//Pascal ABC.NET 3.1 сборка 1256
Var
s:string;
a,b:real;
begin
readln(s);
a:=strtofloat(copy(s,1,pos('X',s)-1));
b:=strtofloat(copy(s,pos('=',s)+1,length(s)-pos('=',s)));
if (a=0) and (b=0) then
begin
writeln('X-любое действительное число');
exit;
end
else
if a=0 then
begin
writeln('Нет корней');
exit;
end;
writeln(b/a);
end.
Пример ввода:
-0.1X=10
Пример вывода:
-100