function nod(a,b: integer): integer; begin if a mod b< > 0 then nod: =nod(b,a mod b) else nod: =b end; var a,b,c: integer; begin readln(a,b,c); writeln(nod(nod(a,b),c)); readln end.
p.s. я не уверен что это правильно
Поделитесь своими знаниями, ответьте на вопрос:
Закодируйте текст в unicode (2сс): укажите свой ответ сколько бит занимает этот код? каждый символ изначального текста занимает 12 бит. укажите свой ответ получившийся код сожмите при rle (гамма-кодсколько бит занимает этот код? : укажите свой ответ исходный текст () закодируйте кодом хаффмана. сколько бит занимает этот код? укажите свой ответ таблица частот, которую необходимо добавить к итоговому коду, займёт примерно 50 бит дискового пространства. останется ли этот алгоритм эффективным? нет да