VBA 2. Зайти в модуль книги и создать процедуру заполнения ячеек рабочего листа с адресом «А1:Е10» случайными двухзначными значениями.
3. Найти среднее арифметическое, среднее геометрическое заполненного диапазона.
4. Поменять размер, начертание и цвет тех ячеек диапазона, которые кратны 5.
5. Поменять местами максимальный и минимальный элемент диапазона.
6. Создать пользовательскую форму с элементами группа (переключатели красный, синий, зеленый), прямоугольник и кнопка Закрыть. Написать процедуры обработки события на изменение цвета прямоугольника и закрытия формы.
7. Создать пользовательскую форму с полями X и Y, Результат, списком Операция, полем со списком Действие и кнопкой Закрыть. В список и поле со списком поместить значения, соответствующие арифметическим операциям (не менее 5). Создать соответствующие процедуры обработки событий на выполнение арифметических действий и помещения полученного значения в поле Результат. Предусмотреть обработку ошибки от деления на 0.

Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).Из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). С другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). Таким образом, на острове живут 10 честных жителей (n = 10).Из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. Следовательно, на острове живут 100 лжецов (m = 100).Итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров  :).

1.
var p:real; i:integer;
begin
write('цена 1 кг конфет = ');
readln(p);
for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2);
end.

Пример:
цена 1 кг конфет = 125.50
1 кг - 125.50
2 кг - 251.00
3 кг - 376.50
4 кг - 502.00
5 кг - 627.50
6 кг - 753.00
7 кг - 878.50
8 кг - 1004.00
9 кг - 1129.50
10 кг - 1255.00

2.
var a,b,p,i:integer;
begin
write('a, b: ');
readln(a,b);
p:=1;
for i:=a to b do p:=p*i;
writeln('p = ',p);
end.

Пример:
a, b: 5 10
p = 151200

3.
var n,i:integer; s:real;
begin
write('n = ');
readln(n);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln('s = ',s:8:3);
end.

Пример:
n =5
s = 2.283