Y:=5*Sqr(x)-3*sqrt(2+x)+3;
Размер цифрового моноаудиофайла измеряется по формуле:
A1 = D*T*i,
Размер стереозаписи (без сжатия) измеряется по формуле:
A2 = 2*D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
A2 = 2*(D/4)*(5*i) = 2,5*A1 = 2,5*38 = 95 Мбайт
1) var i,n: Integer;
begin
i:=0;
writeln('Введите число');
readln(n);
while i<>n do
begin
Inc(i);
writeln(i);
end;
end.
2) var i,n,x,count: Integer;
begin
writeln('Введите кол-во цифр');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' число');
readln(x);
Inc(count,x);
end;
writeln('Сумма чисел: ',count);
end.