У меня получилось:
Аня - литература
Саша - география
Лена - информатика
Вася - история
Миша - математика
1)3-2=1(м)в сутки 2)1*10=10(дн)достигнет верхушки дерева
2) Dim A as integer (объявление переменной)
A=val(Console.ReadLine()) (ввод переменной)
If a mod 2 = 0 then
Writeline =(" Чётное")
else
Writeline = ("Нечётное")
Я в другом языке программирую, но если такой вариант пойдёт, могу остальные дописать. <span />
<span>Альберт Дитрих; Карл Альберт; Дитрих Фридрих; Фридрих Карл.
</span>
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.