var
a, b, c:real;
begin
write('A = '); readln(a);
write('B = '); readln(b);
write('C = '); readln(c);
if abs(A - B )< abs(A - C) then
writeln('точка B расположена ближе к точке А, чем точка С. Расстояние от А до B: ', abs(A - B))
else
if abs(A - B ) > abs(A - C) then
writeln('точка С расположена ближе к точке А, чем точка B. Расстояние от А до С: ', abs(A - C))
else
writeln('Точки B и C находятся на одинковом расстоянии от точки А равном: ', abs(A - C));
end.
Могу сказать темы:
рассписание автобусов
в дневнике схемы
концертное рассписание
1)
uses crt;
var i,k:integer;
n:real;
begin
randomize;
read(k);
for i:=1 to k do
begin
n:=random;
write(n:0:2,' ');
end;
<span>end.
</span>2)
uses crt;
var i,k,n,a:integer;
begin
randomize;
read(k,a);
for i:=1 to k do
begin
n:=random(0,a);
write(n,' ');
end;
<span>end.</span>
a - двухзначное число, b - первая цифра двухзначного числа
b: = a div 10;
if (b mod 2 = 0) then writeln ('Цифра чётная');
if (b mod 2 = 1) then writeln ('Цифра нечётная');
1) 500 КБ =5*25*4*2^13 бит = 125*2^15 бит
2) 16 секунд=2^4 cекунд
3) (125*2^15) / (2^4)=125*2^11 бит/с
4) 256=2^8 --> 8 бит разрядность звуковой платы; 8=2^3
5) 125*2^11 / 2^3 = 125*2^8 (1/c) = 31,25 *2^10 (Герц)=
=31б25*1024/100 = 32 кГерц <-----ответ
( на практике частота дискретизации в звуковых системах равна
44,1 кГ (Audio CD) 48 кГ (DVD) 22,05 (радио) )
