Begin
for var v := 100 to 150 do begin //возраст от 100 до 150 лет
var q := Sqr(StrToInt(IntToStr(v)[1])) //Суммируем квадраты каждой цифры
+ Sqr(StrToInt(IntToStr(v)[2])) //из возможного возраста
+ Sqr(StrToInt(IntToStr(v)[3])); //и записываем его в q
for var d := 1 to 31 do begin //Берем день месяца от 1 до 31
if (q + d) = v then begin //Если q + день = возрасту
println('День:', D, ' Возраст: ', v); //Выводим сообщение
end;
end;
end;
end.
Каждый из возможных символов должен использовать минимально возможное количество БИТ, следовательно :
25 букв + 10 цифр = 35 символов.
Для их хранения требуется узнать минимальное количество бит, (Степень цифры 2), поэтому:
( так как 2^5 < 35 < 2^6) получается, что использовать менее 6 бит нельзя. Таким образом, при 6 битах на символ, номер, содержащий 7 символов определяется:
7 * 6 = 42 бита.
Так как номер записывается минимально возможным количеством БАЙТ, то объём его в БИТАХ должен быть кратен 8 и в случае необходимости округляться в большую сторону.
Ближайшее число кратное 8 - это 48.
48 / 8 = 6 байт.
6 БАЙТ занимает 1 номер.
Таким образом, 6 * 80 = 480 байт.
Сошлось или же я что-то упустил?
Если говорить абстрактно, то в каждом пункте применимы списки
А список заданий
В список строк текста
С список букв и символов оглавления
D список уроков
но средне-обычно используют списки в случаях A и D
По формуле а,(b)=a*(b/9)
75,(8)=75*(8/9)
39,(16)=39*(16/99)(а это а,(бс)=а*(бс/99)
Находим сумму:683/9+3877/99=11390/99=115(05)
Проверила несколько раз
128×64×128=1048576 символов. 1 символ= 1 байту= 8 бит. 1048576×8=8388608 бит, 1048576×1=1048576 байт. 1 килобайт= 1024 байта. 1048576÷1024=1024 килобайта