//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 *
**************
Поскольку об оценке ничего не говорится, можно только оперировать средним количеством информации для случая неравновероятных событий. А это формула Шеннона.
1. Определяем вероятности получения оценок.
Общее количество оценок равно 5+10+6+4 = 25.
Вероятность получения пятерки составляет 5/25 = 0.2
Четверки - 10/25 = 0.4, тройки 6/25 = 0.24, двойки 4/25 = 0.16.
На всякий случай проверим сумму вероятностей - должна получиться единица. 0.2+0.4+0.24+0.16 = 1. Все верно
2. Подставляем значения в формулу Шеннона
Ответ: приблизительно 1.91 бита
Ответ: 6
1) сначала находим значение Б подставляя в значение 4
2) подставляем получившееся число в формулу(3)
3) получается число 6
Компакт-диск
Вот так вроде бы