Вывести все четырехзначные числа кратные 4 (for)

Vari: longint; begini: =1000; for i: =1000 to 9999 do beginif i mod 4=0 then write(i,' '); end; end.

1. для перевода в восьмеричную систему счисления делим число нацело на 8 и записываем остатки. деление производим, пока частное не станет меньше 8. затем записываем частное и приписываем остатки в обратном порядке. 93 / 8 = 11, остаток 5 11 / 8 = 1, остаток 3 1 меньше 8, записываем результат перевода: 135 93(10)=135(8) 2. для перевода из восьмеричной системы счисления в шестнадцатиричную воспользуемся тем фактом, что и восьмерка и шестнадцать - это третья и четвертая степени двойки соответственно. следовательно, каждая цифра восьмеричного числа представляется тремя битами, а шестнадцатиричного - четырьмя. поэтому записываем восьмеричное число в двоичной системе, а затем справа налево группируем биты по четыре и заменяем каждую полученную группу (тетраду) шестнадцатиричной цифрой. 135(8) = 001 011 101(2) = 0101 1101(2)=5d(16) ответ: 93(10)=135(8)=5d(16)