
, каждую восьмеричную цифру заменяем тремя двоичными (триадой) и получаем двоичное число. А затем, зная что
, мы группируем двоичные разряды справа налево по четыре, получая тетрады. И, наконец, каждую тетраду мы заменяем соответствующей шестнадцатиричной цифрой. Описывать этот процесс долго, а перевод делается быстро.
k:=n*m; - присваиваем переменной k значение произведения n*m
i:=k; - присваиваем переменной i значение переменной k
while i>0 do - цикл, который будет выполняться пока значение i>0
if (i mod n=0) and (i mod m=0) then - если остатки отделения i mod n и i mod m равны нулю, то выполняется 2 строчки ниже с присвоением k значения i и уменьшением i на 1
Ощущение, что программа написана криво, она вообще работает?