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.
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
Произведение всех четырех чисел также равняется восьми.
Объяснение:
1*1*2*4=8
1+1+2+4=8
Числа 1,1,2,4.