Var s:string; c1,cn:char; n:integer; begin Write('Введите натуральное число: '); Read(n); Str(n,s); c1:=s[1]; cn:=s[Length(s)]; if c1>cn then Writeln('Первая цифра больше последней') else if c1<cn then Writeln('Первая цифра меньше последней') else Writeln('Первая и последняя цифры одинаковы') end.
Тестовые решения Введите натуральное число: 362336 Первая цифра меньше последней
Введите натуральное число: 7341423 Первая цифра больше последней
Введите натуральное число: 4624 Первая и последняя цифры одинаковы
1) 2⁹ < 800 < 2¹⁰, поэтому для кодирования одного символа нужно 10 бит. При общем объеме 400 бит количество символов будет равно 400/10=40
2) 2⁴ < 20 < 2⁵, поэтому для кодирования одного символа нужно 5 бит. Одна строка потребует для кодирования 20×5=100 бит, страница - 20×100=2000 бит, книга - 20×2000 = 40 000 бит = 40 Кбит
3) 6 Кбайт = 6×1024 = 6144 байт = 6144×8 = 49 152 бит Для кодирования одного символа нужно 49 152/1536 = 32 бита. Тогда мощность алфавита составит 2³² = 4 294 967 296 символов. Бред какой-то...
