кот, корень кот, окончание нулевое, основа слова "кот"
Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
Program Massiv;
Uses Crt;
var i,j:integer;
a: array[1..6,1..6] of integer;
begin
clrscr;
randomize;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=random(101)-50;
end;
end;
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
write(a[i,j]:3);
end;
writeln;
end;
readkey;
end.
Var
mas: array[1..15] of integer;
i, v, q: integer;
begin
randomize;
q:=100;
mas[1]:=random(q);
for i:=2 to 15 do begin
repeat
v:=random(q);
if v<nas[i-1] then Inc(q, 20);
until v>mas[i-1];
end;
mas[i]:=v;
writeln('полученный массив');
for i:=1 to 14 do
write(mas[i],', ');
write(mas[15]);
end.
полученный массив
15, 18, 19, 25, 48, 49, 51, 60, 65, 90, 91, 98, 125, 140, 150
Размер цифрового моноаудиофайла измеряется по формуле:
A = D*T*i,
где D – частота дискретизации (Гц), T – время звучания или записи звука, i - разрядность регистра (разрешение или глубина кодирования звука).
16 кГц = 16*1000 Гц = 16000 Гц
300 Кбайт = 300*1024 байт
Время звучания = 300*1024 / (16000*1) = 19,2 с