<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (fact,sqrtx,s):=(1.0,Sqrt(Abs(x)),0.0);
for var i:=1 to n do begin
fact*=i; s+=1/fact+sqrtx
end;
Writeln('S=',5*s)
end.
<u>Пример</u>
n= 20
x= 3.18
S=186.916954143565
<u>№2</u>
begin
var n:=ReadInteger('n=');
var x:=ReadReal('x=');
var (powi,s):=(1.0,0.0);
for var i:=1 to n do begin
powi*=2; s+=(x+Sqr(Sin(i*x)))/powi
end;
Writeln('S=',s)
end.
<u>Пример</u>
n= 13
x= 0.59
S=1.12411258214649
По ІР адресу можна найті код сайта
Всё это? и всё ны с начало видно
Формула нахождения объема закодированного звука
A = D * i * t * с (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Тогда t = A / (D * i * с)
Приводим единицы измерения
D = 64 кГц = 64000 Гц
A = 4026531840 бит
t = A / (D * i * c) = 4026531840 / (64000 * 24 * 2) = 1310.72 секунд = 21.845333333333333 минут
Ответ 20
<u>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var s:=Arr('первое', 'второе','третье','четвертое','пятое');
var p,r:real;
var c:char;
Write('Введите первое число: '); Readln(r);
for var i:=0 to 3 do begin
Write('Выберите ',s[i], ' действие (a) сложить, b) вычесть,');
Write('c) умножить, d) разделить): '); Readln(c);
Write('Введите ',s[i+1],' число: '); Readln(p);
case c of
'a':r+=p;
'b':r-=p;
'c':r*=p;
'd':r/=p;
end;
Writeln('Результат: ',r)
end
end.