1) переводишь целую часть по обычным правилам 2) дробную часть числа умножаешь на основание системы счисления (на 4 то бишь) 3) из получившегося числа: целая часть(цифра) - записать ее как очередной разряд (дробный) результирующего числа и отбросить 4) действия 2 и 3 повторять, пока дробная часть не станет = 0 или пока не будет достигнуто требуемое кол-во разрядов
пример: десятичное число 35,625 в четверичную сс 1) переводим целую часть: 35 в десятичной = 203 в четверичной 2) 0,625*4=2,5 дописываем к числу 203,2 остается 0,5. продолжаем 3) 0,5*4=2 203,22 дробная часть равна нулю, значит все десятичное число 35,625 = четверичному числу 203,22
Var N, lastNum, mod5: integer; flag: boolean; begin readln(N); lastNum := N mod 10; mod5 := N mod 5; flag := (lastNum = 5) or (lastNum = 0); if flag then writeln('Число ', N, ' делится на 5 по признаку делимости') else writeln('Число ', N, ' не делится на 5 по признаку делимости'); if (mod5 = 0) then writeln('Число ', N, ' делится на 5 по определению') else writeln('Число ', N, ' не делится на 5 по определению'); flag := flag xor (mod5 = 0); if flag then writeln('Результаты не совпадают, это не признак делимости!') else writeln('Результаты совпадают, это возможно признак делимости') end.
Нічого не зрозуміло, как???