[Текст из сниппета]
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)
[Куплет]
...
Быстрей, посмотри
Вам подарок, а мне часы
Drip на шее, всё под жопой
Мне чуть больше двадцати
// 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
[Текст из сниппета]
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)
[Куплет]
...
Быстрей, посмотри
Вам подарок, а мне часы
Drip на шее, всё под жопой
Мне чуть больше двадцати
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)