с Информатикой Вставьте пропущенные слова: Вторая группа элементов носит название и содержит функции, позволяющиеи сноски. Как правило, обычные сноски располагаются в , а концевые –в
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
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.