010
Объяснение:
Изобразим все возможные коды длиной не больше 4 в виде дерева (см. рис.)
Красным цветом помечены вершины, которым соответствуют уже занятые коды. Условие Фано запрещает одному коду быть префиксом (началом) другого, желтым цветом отмечены коды, выбор которых будет противоречить условию Фано (например, если занят код 0010, то нельзя выбрать коды 0, 00, 001).
Оставшиеся не закрашенными коды доступны для выбора, они удовлетворяют условию Фано, а значит, код будет допускать однозначное декодирование. По рисунку видно, что наименьшая длина кода равна 3, есть два варианта: 100 и 010. В ответ пойдёт более правый код, у него числовое значение меньше.
program raf105;
var a,sum:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
readln(a);
sum+= a;
until a=0;
writeln('Сумма: ',sum);
end.
2.program raf105;
var
s:string;
i,k,j:integer;
poli:boolean;
begin
poli:= true;
write('Введите слово: ');
readln(s);
s:= lowercase(s);
k:= length(s) div 2;
j:= k*2+1;
if (length(s) mod 2)<>0
then j+= 1;
for i:=1 to k do
begin
j-=1;
if poli
then poli:= s[i] = s[j];
end;
if poli
then writeln('Слово - палиндром')
else writeln('Слово - не палиндром');
end.
3.
program raf105;
var a:array[1..10] of integer;
x,i:integer;
begin
writeln('Вводите 10 чисел по очереди');
for i:=1 to 10 do
readln(a[i]);
write('Введите искомое число: ');
readln(x);
write('Индексы совпадающих элементов: ');
for i:=1 to 10 do
if a[i] = x
then write(i,' ');
end.
4.program raf105;
var a:integer;
begin
write('Введите номер дня недели: ');
readln(a);
case a of
1: writeln('Это Понедельник');
2: writeln('Это Вторник');
3: writeln('Это Среда');
4: writeln('Это Четверг');
5: writeln('Это Пятница');
6: writeln('Это Суббота');
7: writeln('Это Воскресенье');
end;
end.
5.program raf105;
var a:array[1..100] of integer;
i,o,x: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
repeat
o+= 1;
readln(a[o]);
until a[o]=0;
o-= 1;
writeln('Введённые числа в обратном порядке:');
for i:=o downto 1 do
writeln(a[i]);
end.
