По каналу связи передаются сообщения, содержащие только русские буквы. Для передачи используется двоичный код, удовлетворяющий условию Фано (никакое кодовое слово не может быть началом другого кодового слова). Кодовые слова для некоторых букв известны: К – 10, Р – 011, С – 11. Какое наименьшее количество двоичных знаков потребуется для кодирования слова ФОКСФОРД?
var a, b, с: integer;
begin
write('Введите два числа: ');
readln(a, b);
if a < b then с := a + 1 else с := b + 1;
repeat с := с - 1
until (a mod с = 0) and (b mod с = 0);
write('NOD = ', с)
end.
//2. Алгоритм с вычитанием (цикл while)
var a, b: integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
while a <> b do
if a > b then
a := a - b
else
b := b - a;
writeln('NOD = ', a);
end.