Коды длиной 1 ("1" и "0") использовать нельзя. Рассмотрим кодовые слова длиной 2. 00, 01 и 11 использовать нельзя, т.к. 00 и 01 не удовлетворияю условию Фано, а 11 уже используется. 10 удовлетворяет условию Фано. Ответ 10
Ответ:
Никак. Данное действие выполнить не возможно!
Объяснение:
Без видео редактора, невозможно объединить два видео файла.
Const sz=1000;
var
a: array [1..sz] of integer;
i,j,n,k:integer;
begin
write ('количество чисел');
read(n);
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n-1 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно
Попробую накидать прямо здесь. Компилятора нет под рукой, поэтому проверь, если что не так, то скажи.
======
program xaza ;
var n : integer ;
begin
n := 0 ;
while n <> 1 do begin
write ('vvedi chislo n=' ) ;
readln ( n ) ;
if ( (n mod 2) = 1 ) then write ( 'NE ') ;
writeln ( 'chetnoe' ) ;
end ;
end.
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.