Int i,k,sum,arif;
i=0;
k=0;
while(i<=1000){
if(k%2==0 && k%3==0){
i++;
sum+=k;
}
k++;
}
arif = sum/i;
std::cout << "Среднее арифметическое = " << arif;
std::cout << endl << "Сумма чисел = " << sum;
Формула нахождения объёма звуковой записи:
V = k * H* x * t; где k - кол-во каналов; H - частота дискр; x - разрешение; t - время(в сек.);
Желательно знать степени двойки. В этой задаче можно делать примерные расчёты.
V = 2 *
![2^{5}](https://tex.z-dn.net/?f=+2%5E%7B5%7D+)
*
![2^{10}](https://tex.z-dn.net/?f=+2%5E%7B10%7D+)
![2^{5}](https://tex.z-dn.net/?f=+2%5E%7B5%7D+)
* 120 = 245 760 000
Переведём в МБ (то есть разделим на
![2^{23}](https://tex.z-dn.net/?f=+2%5E%7B23%7D+)
:
V = 29.2
V = 30 (ближ. кратное 10)
Var a,b:integer;
begin
readln(a);
b:=a+10;
writeln(b);
<span>end.</span>
Формула имеет вид:
=ЕСЛИ(И(C2>=4;D2>=4;E2>=4;F2>=4);"да";"нет")
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(50,-50,50); a.Println;
Writeln('k=',a.Where(x->x.IsEven and (x mod 3<>0)).Count)
end.
<u>Пример</u>
46 39 16 14 -16 -35 -34 -38 5 16 -13 -19 48 18 -33 -37 3 -41 46 38 15 21 50 50 21 -29 -34 4 -31 -18 31 -2 26 45 -8 1 13 29 -35 -46 25 -38 -13 23 14 -17 -30 35 9 -34
k=20