Придумайте две функции с квадратным корнем и переменной в подкоренном выражении, для вычисления которых: Потребуется линейная программа
Потребуется разветвляющаяся программа

Бояуы бар суретші

Палитра (орта француз палитрасы, өз кезегінде басқа франктан. Paleutr, лат. Paleterum - «тақта», «тақта» [1]) - суретші араласатын тікбұрышты немесе сопақ пішінді кішкене жіңішке және жеңіл тақта. жұмыс кезінде қажетті түстерді алу үшін бояуларды тазалаңыз. Көбіне палитрада бас бармақ саңылауы болады.

Майлы бояу үшін бояғышты әдетте ағаштан жасайды; кескіндеме техникасының басқа түрлері үшін қалайыдан, эмальданған металдан, фарфордан, қыштан жасалуы мүмкін.

Бейнелі мағынада «палитра» дегеніміз - белгілі бір суретшінің өз шығармашылығында қолданған бояуларының нақты тізімі, сондай-ақ белгілі бір кескіндеме үшін, белгілі бір суретшінің немесе өнер мектебінің шығармашылығына тән түстер жиынтығы (бұл сөзді қолданудың синонимі «түстер масштабы»).

Объяснение:

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(x->x<>0).Average)
end.

Тестовое решение:
-0.00136006072493969

2. А вот так учат писать это же школьные учителя:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
var
  m:array[1..100] of real;
  i,k:integer;
  s:real;

begin
  s:=0;
  k:=0;
  for i:=1 to 100 do begin
    m[i]:=sin(i)*cos(i);
    if m[i]<>0 then begin
      s:=s+m[i];
      k:=k+1
      end
    end;
  Writeln(s/k)
end.

Тестовое решение:
-0.00136006072493969