M минут n секунд =60*m+n секунд
Объём записи: 16*(60*m+n) Кбайт
Если 6*2^10 > 16(60*m+n), то запись поместится
1) 123 в двоичной = <span>1111011
123 в восьмеричной = 173
123 в шестнадцатеричной = 7В
456 в двоичной = </span>111001000<span>
456 в восьмеричной = 710
456 в шестнадцатеричной = 1С8
2) 100011 в десятеричной = 35
</span>100011 в восьмеричной = 43
100011 в шестнадцатеричной = 23
101001011 в десятеричной = 331
101001011 в восьмеричной = 513
101001011 в шестнадцатеричной = 14В
1110010001 в десятеричной = 913
1110010001 в восьмеричной = 1621
1110010001 в шестнадцатеричной 391
Var num1,num2:real;
begin
write('Введите первое число: '); readln(num1);
write('Ведомое второе число: '); readln(num2);
writeln('Наибольшее число: ');
if (num1 > num2) then writeln(num1)
else writeln(num2)
end.
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)56(10)=111000(2); тут все просто, берем и делим число 56:2=28(остаток 0),28:2=14(остаток 0), 14:2=7(остаток 0), 7:2=3(остаток 1),3:2=1(остаток 1) и потом все 1 и 0 записываем в обратном порядке, то есть получается 111000
2)174(8)=124(10). Немного по другому, 1*8^2+7*8^1+4*8^0=124, т. к. 8 это основание, степени ставят с конца и по возрастающей (не забудь, что любое число в 0 степени равно 1)
3)2A,4(16)=42,25(10). Как и во 2) А=10(так как 16 система счисления)
