//Pascal ABC.NET v3.1 сборка 1172
//Вариант без ввода переменных, выводится системная дата
Uses
system;
var
t: DateTime;
begin
t := DateTime.now;
{если не работает, попробуйте t:=CurrentDateTime;}
writeln('*************');
writeln('* ', t.day, '.', t.month, '.', t.year, ' *');
writeln('*************');
end.
Пример вывода:
*************
* 10.4.2016 *
*************
//Вариант со вводом переменных
Var
s,c:string;
i:integer;
begin
s:='* ';
write('Введите день:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите месяц:'); readln(c);
if length(c)=1 then c:='0'+c;
s:=s+c+'.';
write('Введите год:'); readln(c);
s:=s+c+' *';
for i:=1 to length(s) do
write('*');
writeln;
writeln(s);
for i:=1 to length(s) do
write('*');
end.
Пример ввода:
Введите день:10
Введите месяц:4
Введите год:2016
Пример вывода:
**************
* 10.04.2016 *
**************
(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 1024 * 768 = 786432 пикселей
По формуле 
(N - кол-во цветов в палитре, i - глубина цвета)
бит
I - ?
Решение:
I = K * i = 786432 * 24 = 18874368 бит
18874368.0 бит = 2359296.0 байт = 2304.0 Кбайт = 2.25 Мбайт
1. 7,5 Кбайт = 7,5*1024 байт = 7,5*1024*8 бит
Объем одного символа = 7,5*1024*8/7680 = 8 бит
Мощность алфавита = 2^8 = 256
Ответ: 256 символов
2. Для записи одного измерения требуется log(2)101 ≈ 7 бит (2^7=128)
Объем результатов измерений 7*80 = 560 бит = 560/8 байт = 70 байт
3. Общее количество символов для записи номеров = 21+10=31
Для кодирования одного символа необходимо log(2)31 ≈ 5 бит.
Для записи одного номера требуется 5*10 бит = 50 бит = 50/8 байт ≈ 7 байт
Для хранения 81 номера потребуется 81*7 байт = 567 байт
4. Для кодирования одной ноты необходимо log(2)7 ≈ 3 бита.
Объём сообщения, состоящего из 180 нот: 180*3 бит = 540 бит
5. Общее количество символов для записи номеров = 30+10=40
Для кодирования одного символа необходимо log(2)40 ≈ 6 бит.
Для записи одного номера требуется 6*5 бит = 30 бит = 30/8 байт ≈ 4 байта
Для хранения 50 номеров потребуется 50*4 байт = 200 байт
Операционные системы постоянно обновляются, дополняются. Если сегодня ты знаешь одну ОС на 100%, то завтра можешь уже и не знать и половины, т.к. её обновили. Так же, постоянно создаются новые ОС, уследить за всеми невозможно. Поэтому сегодня актуальна тема изучения операционных систем.
