Если используется 60 различных символов, то для кодирования одного символа требуется log(2)60 ≈ 6 бит
Для кодирование 50 символов нужно 50*6=300 бит
Var
m,g,a:real;
Begin
Write('Введите массу и ускорение (Через пробел) ');
Readln(m,a);
g:=9.8;
Write('Сила сопротивления воздуха равна ',m*g-m*a);
End.
Var a: array [1..8] of integer;
i: integer;
begin
for i := 1 to 8 do
readln(a[i]);
for i := 8 downto 1 do
writeln(a[i]);
<span>end.
Вот так)</span>
1)
полученные числа:
0 1 2 3 4 5 4 3 2 1 0
2)
10
3)
10 9 8 7 6 5 4 3 2 1 0
4)
10 9 8 7 6 5 6 7 8 9 10
5)
полученные числа:
1 0 3 2 5 4 7 6 9 8 10