Паскаль ! знайти найменший номер члена послiдовностi, для якого виконує- ться умова |an − an−1| < e. вивести на екран цей номер i всi еле- менти ai , де i = 1, 2, . . , n: an =0.5*(an−1+an−2) a1 = 1, a2 = 2 an =(n^ln n)/(ln n)^n
Если сотрудников 102, то может выйти так, что у 101 сотрудника зарплата 1 тугрик, а у оставшегося - все остальные тугрики. в таком случае зарплату раздать не выйдет, так как есть только 100 монет по 1 тугрику. пусть сотрудников 101 или меньше. упорядочим их по убыванию оставшегося размера выплаты. будем распределять монеты так: заплатим первому в очереди 1 монетой максимального номинала из имеющихся, а затем поставим его в очередь согласно оставшемуся размеру выплаты. почему это сработает: если максимальный номинал монеты x > = 3, то осталось выплатить не меньше, чем 100*(1+2+3++(x-1))+x = 50x^2-49x, у первого в очереди остаток к выплате не меньше, чем (50x^2-49x)/101 > = x. если x = 2, то первому в очереди надо выплатить не меньше 2 тугриков, поскольку в противном случае сумма всех монет была бы не больше 101 (не более 101 человека, каждому надо выплатить не более 1 тугрика), но сумма всех монет не меньше, чем 100*1 + 2 = 102. если x = 1, то очевидно, выплатить получится.
a, p: real;
n, i: integer;
begin
p := 1;
readln(a, n);
for i := 0 to (n - 1) do
p := p * (a + i);
writeln(p);
end.