// PascalABC.NET 3.0, сборка 1076
const
n=20; { количество дат }
type
TDate=record
d:1..31;
m:1..12;
y:word
end;
var
dates:array[1..n] of TDate;
i:byte;
s,st:string;
begin
Randomize;
for i:=1 to n do begin
s:='';
With dates[i] do begin
d:=Random(27)+1;
Str(d,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
m:=Random(12)+1;
Str(m,st);
if Length(st)=1 then st:='0'+st;
s:=s+st+'.';
y:=Random(51)+1960;
Str(y,st);
s:=s+st;
if m in [3..5] then s:=s+' - весенняя';
Writeln(s)
end
end
end.
<u><em>Тестовое решение:</em></u>
22.12.1979
21.10.1975
25.03.1980 - весенняя
23.04.1967 - весенняя
09.10.1967
16.05.1965 - весенняя
09.08.1996
05.10.2001
10.11.1985
18.08.1970
08.10.1983
01.12.2005
01.01.1994
09.11.1962
14.09.1979
24.03.2008 - весенняя
14.01.2003
22.04.1990 - весенняя
18.08.1969
16.05.2009 - весенняя
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
Количество информации можно определить как -log2(p), где p - вероятность данного события. Оно измеряется в битах.
Также можно использовать равносильное выражение log2(1/p)
Вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1.
Значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит,
если белый, то log2(1/0,2) = log2(5) = 2,3219 бит
если жёлтый, то столько же 2,3219 бит
если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
<span>Чем меньше вероятность события, тем большее количество информации мы получаем, когда это событие наступает.
</span>
Ответ:
логин
Объяснение:
Лампа
мОнеты
коГти
напИток
банаН
логин - слово (набор символов), которое ты будешь использовать, если нужно зайти авторизоваться на каком-то сайте, а потом, соответственно, заходить туда. Логин придумывается пользователем самостоятельно.
