5 разрезов ну почему обязательно 20 символов? ну с начала отрезаешь и конец вот те 1 см потом так же вот те 2 см и 3 см тоже так
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
1. 32=2^i, отсюда i=5 бит - объем одного символа в 1ом тексте.
2.64=2^i , отсюда i=6 бит - объем одного символа во 2ом тексте.
3.Символов в обоих текстах одинаковое кол-во, тогда найдем разницу в их инф. объемах
6/5=1.2
Ответ: в 1.2 раза
Var a,s:integer;
begin
Randomize;
a:=random(21)-10;
writeln(a);
s:=0;
while a<>0 do
begin
s:=s+a;
a:=random(21)-10;
writeln(a);
end;
write('s = ',s);
end.
Пример:
-6
6
10
7
-10
-8
-9
0
s = -10
8л 5л 3л
Наполнили 5л. 3 5 0Перелили это в 3л, осталось 2 л. 3 2 3 3 л вернули в 8 л. 6 2 02л перелили в 3л. 6 0 2Наполнили 5л из 8л. 1 5 2 Отлили из 5л в 5л 1 4 3перелили 3л в 8л 4 4Число переливаний 7.