Uses crt;
var x:integer;
y:real;
begin
read (x);
y:=1/sqr (x)-13*x/(sqr (x)-36)-18;
write (y);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
const
n=8;
begin
var a:=MatrixRandom(n,n,10,90);
for var i:=0 to n-1 do begin
for var j:=0 to n-1 do Write(a[i,j]:3);
Writeln
end;
var k:=0;
for var i:=0 to n-1 do
if a[i,i].IsEven then Inc(k);
Writeln('k=',k);
end.
Пример
23 32 75 57 27 14 26 53
46 75 17 68 57 60 10 43
76 10 62 83 62 20 89 15
28 36 71 86 67 13 34 46
84 38 56 90 16 40 19 16
15 39 75 15 23 41 23 70
48 17 50 81 82 18 41 13
33 69 39 82 34 31 77 43
k=3
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString.ToWords;
s[1]:='в'; s.Println
end.
Пример
мама мыла раму
мама в раму
частота дискретизации: D = А / Т / I
А - объем памяти (в байтах)
Т - время записи (в секундах)
I - разрядность звуковой платы (в байтах)
1,3 Мбайт = 1363148,8 байт
1 минута = 60 секунд
8 бит - 1 байт
найдем частоту дискретизации:
1363148,8 байт / 60 секунд / 1 байт = 22719,1 Гц
значит D = 22,05 кГц