<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10); a.Println;
Writeln('Среднее элементов с четным значением: ',
a.Where(x->x.IsEven).Average);
Writeln('Среднее элементов с четным номером: ',
a.Where((x,i)->i.IsOdd).Average)
end.
<u>Пример</u>
9 1 4 8 2 1 10 7 8 5
Среднее элементов с четным значением: 6.4
Среднее элементов с четным номером: 4.4
В паскале не силен, алгоритм следующий
если 2*sqrt(S1/Pi) <= sqrt(S2) то "Круг поместится в квадрат"
иначе "Круг не поместится в квадрат"
если 2*sqrt(S1/Pi) >= sqrt(2*S2) то "Квадрат поместится в круг"
иначе "Квадрат не поместится в круг"
V=i*T*D*1=16*10*44100=<span>
7056000 бит/8/1024=</span><span>
<span>861,328125Кбайт</span></span>
Program BiFi;
Var x,a,s:real;
k,i:integer;
Begin
readln(x);
readln(k);
s:=0;
a:=x;
for i:=1 to k do begin a:=a/x;
s:=s+a;
writeln(s:6:3);
readln;
end.