а) 1111₂ < 1111₈
б) 10101₂ < 10111₂
в) А99₁₆ > 999₁₆
г) 11010₂ = 32₈
Объяснение:
а) 1111₂ и 1111₈
1111₂ = 1 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 8 + 4 + 2 + 1 = 15₁₀
1111₈ = 1 * 8³ + 1 * 8² + 1 * 8¹ + 1 * 8⁰ = 512 + 64 + 8 + 1 = 585₁₀
15₁₀ < 585₁₀
1111₂ < 1111₈
б) 10101₂ и 10111₂
10101₂ = 1 * 2⁴ + 0 * 2³ + 1 * 2² + 0 * 2¹ + 1 * 2⁰ = 16 + 4 + 1 = 21₁₀
10111₂ = 1 * 2⁴ + 0 * 2³ + 1 * 2² + 1 * 2¹ + 1 * 2⁰ = 16 + 4 + 2 + 1 = 23₁₀
21₁₀ < 23₁₀
10101₂ < 10111₂
в) А99₁₆ и 999₁₆
А99₁₆ = А * 16² + 9 * 16¹ + 9 * 16⁰ = 10 * 256 + 9 * 16 + 9 * 1 = 2560 + 144 + 9 = 2713₁₀
999₁₆ = 9 * 16² + 9 * 16¹ + 9 * 16⁰ = 9 * 256 + 9 * 16 + 9 * 1 = 2304 + 144 + 9 = 2457₁₀
2713₁₀ > 2457₁₀
А99₁₆ > 999₁₆
г) 11010₂ и 32₈
11010₂ = 1 * 2⁴ + 1 * 2³ + 0 * 2² + 1 * 2¹ + 0 * 2⁰ = 16 + 8 + 2 = 26₁₀
32₈ = 3 * 8¹ + 2 * 8⁰ = 24 + 2 = 26₁₀
26₁₀ = 26₁₀
11010₂ = 32₈
Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:
Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.
Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.
Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.
Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then