Var x,y:integer;
begin;
readln(x);
if x>0 then
begin;
y:=2*sqr(x)+5;
write(y);
end
else
begin;
y:=7*sqr(x)-5;
write(y);
end;
end.
var bn,sn,b1,q,n:real;
begin
write('b1=');
read(b1);
write('q=');
read(q);
write('n=');
read(n);
bn:=b1*power(q,n-1);
sn:=(b1*(power(q,n)-1))/(q-1);
writeln('Bn=',bn);
writeln('Sn=',sn);
end.
Данный файл мог быть прикреплён каким либо трояном червём или же другой малварью рекомендую вылечить если не поможет удаляй
CLS
INPUT "N = ", N
INPUT "A = ", A
S = 0
FOR i = 0 TO N
P = A
FOR j = 1 TO i
P = P * (A + j)
NEXT j
S = S + 1 / P
NEXT i
PRINT ; "S = "; S
END
Размер стереозаписи (без сжатия) измеряется по формуле:
A = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение).
A = 2*1200*130*28 бит = 2*1200*130*28 / 8 байт = 1092000 байт
1092000/456000 = 2,4
Ответ:Файл без сжатия в 2,4 раза больше сжатого файла.