Собственно,
формула:
I = K*i ,
где I – количество информации в текстовом сообщении (информационный объем текста) ,
K – количество символов в текстовом сообщении,
i – информационный вес одного символа
исходя из формулы:
N = 2^i ,
где N – мощность алфавита,
i – информационный вес одного символа
находим, что мощность 1 алфавита = 16 = 2^4
мощность второго = 256=2^8
соответственно, количество инф в первом случае K*4, а во втором, К*8.
<span>Итого, количество информации во втором тексте больше в 2 раза. </span>
Uses crt;
var i:integer;
t:real;
begin
t:=23;
for i:=1 to 20 do
t:=t+0.5;
writeln(t) ;
end.
Привет,да в таблицу можно вставлять и удалять строки и столбцы,это сделано для того что бы например ты внес(ла) в неё какую либо информацию,а потом решил,что она тебе не нужна и вместо того чтобы чтобы сидеть и долго стирать все это ты берёшь и удаляешь строку или столбец с этой информацией,или ещё другой способ ты создаёшь таблицу про моря и океаны(к примеру)и тебе надо 15 строк и 10 столбцов а изначально можно создать только 8 строк и 10 столбцов,и вот ты просто добавляешь строки со столбцами и у тебя всё получается!!!!
<span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span>screen 12
for x=0 to 640 step 5
cls
circle (x,240), 25
circle (x+100,240), 25
line (x+30,240)-(x+70,240)
line (x-50,240)-(x-30,240)
line (x+150,240)-(x+130,240)
line (x+150,240)-(x+150,190)
line (x-50,240)-(x-50,190)
line (x-50,190)-(x-10,190)
line (x+110,190)-(x+150,190)
circle (x+50,190),60 ,, 0 , 3.14
circle (x,240),30 ,, 0 , 3.14
circle (x+100,240),30 ,, 0 , 3.14
next x</span></span>
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
---------------------------------
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
