for var i := 1 to n do
begin
Write('a[', i , '] >>> ',a[i]);
end;
сами там додумайте
вот, можно так
А) 110000110101=6065
Б) 1010101,110010=125,62
В) 11100001011001=16131
Г) 1000010101=1025
Делаем всё по уму.
1. Два столбца и три рядка размечаем.
— Столбцы: "Год", "Месяц"
— Ряды: "День рождения", "Текущая дата", "Возраст"
2. "День рождения" заполняем вручную, указываем в столбце "Год" - год рождения, в столбце "Месяц" - месяц рождения.
3. Заполняем по формулам текущую дату в ряде "Текущая дата", формула для столбца "Год":
— "=YEAR(TODAY())", функция TODAY() - возращает текущую дату в формате Exel, функция YEAR() - принемает дату формата Exel и возращает год в виде целого числа.
— "=MONTH(TODAY())", работает схоже с предыдущей функцией, но в отличии от нее, определяет из текущей даты - месяц.
4. Заполняем ряд "Возраст", тут указываем формулы для столбца "Год" и "Месяц" простые формулы, где вычетаем из текущей даты - дату рождения.
Превью на картинке и Exel документ с ним же.