Const n = 40;
var a:array [1..n] of integer;
i:integer;
begin
for i:=1 to 10 do a[i]:=random(21);
for i:=11 to 20 do a[i]:=random(51)-10;
for i:=21 to 30 do readln(a[i]);
for i:=31 to 40 do a[i]:=a[i-2]+a[i-1];
for i:=1 to 40 do write(a[i],' ');
end.
Тестовое решение:
1
2
3
4
5
6
7
8
9
0
13 15 17 14 3 2 20 7 14 8 29 34 28 9 7 32 36 -2 16 22 1 2 3 4 5 6 7 8 9 0 9 9 18 27 45 72 117 189 306 495
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub
В данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. Например, когда кидаем монетку у нас может получиться всего 2 события: орел или решка. Так как 2 - это 2 в степени 1, то это значит, что сообщение несет 1 бит информации. Так и здесь: после желтого у тебя возможно всего два события: красный или зеленый. Значит сообщение несет 1 бит информации.
Известняк белый, светло-серый, желтоватый. твердый, не имеет блеска<span>
гипс белый, светло серый, твердый, не имеет
песок разного цвета(черный, желтый итд), рыхлый, блеск имеет
нефть </span>буро-коричневый, бесцветный, жидкий. не имеет<span>
кварц </span>Бесцветный, белый, фиолетовый, серый, жёлтый, коричневый, твердый. имеет Стеклянный блеск.<span>
базальт темные цвета, твердый, </span>блеск<span> светло-желтоватого или светлозеленоватогоцвета</span><span>
гранит. </span><span>Цвет гранита имеет очень широкий цветовой диапазон. Твердый, не имеет</span>
program line_4;
uses crt;
var
kb, b: longint;
mb: real;
begin
clrscr;
write(‘kb (килобайт) = ‘); readln(kb);
b:=kb*1024*8;
mb:=kb/1024;
writeln(kb,‘ килобайт = ‘, b, ‘ бит = ‘, mb:6:4, ‘ мб’);
readkey;
end.