37:2=18(ост1) 151:2=75(ост1)
<span>относят учебные видеофильмы и звукозаписи, для воспроизведения которых достаточно бытового магнитофона или CD-плеера.</span>
<u>PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function CountCond(a:array of real):=a.Where(t->t<a.Average).Count;
begin
var a:=ArrGen(15,i->Cos(5*(i+1))-1/sqrt((i+1)**3+9)); a.Println;
Writeln('Элементов массива, меньших среднего арифметического: ',CountCond(a))
end.
Можно посчитать руками. Но это не интересно.
Заметим, что G(n+1)=F(n)+G(n)=(F(n-1)-G(n-1))+(F(n-1)+G(n-1))=2F(n-1);
G(n+2) = 2F(n)
Аналогично, F(n+1)=F(n)-G(n)=-2G(n-1)
F(n+2)=-2G(n)
Тогда F(5)=-2G(3)=-4F(1)=-4; G(5)=2F(3)=-4G(1)=-4
G(5)/F(5)=1