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.
у тебя всё получится не сомневайся хахапха
Program z234; const n = 10; Var a: array [1..n] of integer; i,x,f:integer;Begin for i:=1 to n do begin write('A[',i,'] = '); readln(a[i]); end; for i:=1 to n do write(a[i],' '); writeln; write('Введите число = '); readln(x); f:=0; for i:=1 to n do if a[i] = x then f:=1; if f = 1 then writeln('Число ',x, ' входит в массив') else writeln('Число ',x, ' НЕ входит в массив')End.
Количество информации вычисляем по формуле:
I = log(2)N = log(2)16 = 4 бита