Решение примеров 1) (248,426)10→ х2, х8, х16
а) (11111000,011)2
б) (370,332)8
в) (F8,6D0)16
2) (100110001101,0010111011)2→ х8, х16, х10
а) (4615,1354)8
б) (98D,2EC)16
в) 1ּ2¹¹+ 0ּ2¹º+ 0ּ2⁹ + 1ּ2⁸ + 1ּ2⁷ + 0ּ2⁶ + 0ּ2⁵ + 0ּ2⁴ + 1ּ2³ + 1ּ2² + 0ּ2¹ +
1ּ2º + 0ּ2ֿ¹ + 0ּ2ֿ² + 1ּ2ֿ³ + 0ּ2ֿ⁴ + 1ּ2ֿ⁵ + 1ּ2ֿ⁶ + 1ּ2ֿ⁷ + 0ּ2ֿ⁸ + 1ּ2ֿ⁹ + 1ּ2ֿ¹º
= 2048 + 256 + 128 + 8 + 4 + 1 + 0,125 + 0,03125 + 0,015625 + 0,0078125 +
0,0019531 + 0,00097655 = 2445,1826171510
3) (7B48,AD3)16→ х10, х2
а) 7ּ16³ + 11ּ16² + 4ּ16¹ + 8ּ16º + 10ּ16ֿ¹ + 13ּ16ֿ² + 3ּ16ֿ³ = 28672 + 2816
+ 64 + 8 + 0,625 + 0,005078125 + 0,000742421875 = 31560,63142054687510
б) (0111 1011 0100 1000, 1010 1101 0011)2
4) (C7F1,E82)16→ х10, х2
а) 12ּ16³ + 7ּ16² + 15ּ16¹ + 1ּ16º + 14ּ16ֿ¹ + 8ּ16ֿ² + 2ּ16ֿ³ = 49152 + 1792 +
240 + 1 + 0,875 + 0,03125 + 0,00048828125 = (51185,90693828125)10
б) (1100 0111 1111 0001, 1110 1000 0010)2
5) (324,37)8→ х10, х2, х16
а) 3ּ8² + 2ּ8¹ + 4ּ8º + 3ּ8ֿ¹ + 7ּ8ֿ² = 192 + 16 + 4 + 0,375 + 0,109375 =
(212,484375)10
б) (011 010 100, 011 111)2
в) (D4,7C)16
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.