75 . написать программу на языке freebasic(либо любой другой бейсик,но лучше фри).в исходной строке a$ заменить все вхождения заданного сочетания символов x$ на сочетание y$.вывести исходную и полученную строки.

Условие Фано означает, что никакое кодовое слово не может быть началом другого кодового слова. Поскольку буква Н кодируется нулем, значит, мы не можем кодировать Л и М таким образом, чтобы оно начиналось с нуля. Значит, будем кодировать так, чтобы начиналось с единицы. Допустим, Л - 11. Тогда М невозможно закодировать двумя символами. Значит, будем использовать три. Пусть Л - 110, а М - 111. Следовательно:
Н = 0 (1 символ)
К = 10 (2 символа)
Л = 110 (3 символа)
М = 111 (3 символа)

Наименьшая возможная суммарная всех кодов будет: 1 + 2 + 3 + 3 = 9

Var
  s, n: integer;

begin
  Write('Введите натуральное число: '); Readln(n);
  s := ((n + 1) * n) div 2; { сумма арифметической прогрессии }
  Writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', s)
end.

Результат выполнения программы:
Введите натуральное число: 10
Сумма натуральных чисел от 1 до 10 равна 55

var
  i: integer;

begin
  Writeln('Квадраты первых пяти нечетных натуральных чисел');
  i := 5 * 2 - 1;
  while i > 0 do begin Writeln(i:2, sqr(i):5); i := i - 2 end
end.

Результат выполнения программы:
Квадраты первых пяти нечетных натуральных чисел
 9   81
 7   49
 5   25
 3    9
 1    1