Вот) Тут используется формула
и, как я понимаю, всё таки
, а не
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.
1,5 Мб=1,5*1024*1024 байт
Необходимая память для 1 пикселя (глубина цвета):
1,5*1024*1024/(1024*512) = 3 байта = 3*8 бит = 24 бита
Максимальное количество цветов = 2^24 = 16 777 216
Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка
Или одна тройка или две единицы. Тройка больше, возьмем ее
нет восьмерок или не больше двух девяток. Ок возьмем без восьмерок, и все девятки как наибольшее
Старшие разряды больше, младшие меньше
Получаем 999993