Написать алгоритм и программу в паскале дана окружность радиуса r с центром в начале координат и точка а(ха, уа определить как точка расположена по отношению к окружности (лежит на окружности, внутри окружности, за окружностью)

Примечание: уравнение окружности имеет вид: решение: рассмотрим 3 случая: 1) точка лежит внутри окружности.пусть даны координаты точки x и y. если их сумма квадратов не превышает квадрата радиуса, т.е.: 3) точка лежит вне окуржностиесли точка с координатами a(x; y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е. программа: program zadacha_1; var x,y,r: real; begin writeln('введите координаты точки'); readln(x,y); writeln('введите радиус окружности'); readln(r); if sqr(x)+sqr(y)< sqr(r) then writeln ('точка внутри окружности')   else if sqr(x)+sqr(y)=sqr(r) then writeln ('точка на окружности')     else writeln('точка вне окружности'); end.

Для двух букв кодовые слова уже известны, осталось подобрать для оставшихся двух букв такие кодовые слова, которые будут являться кратчайшими и удовлетворять условию Фано.

Кодовые слова не могут начинаться с 0, поскольку 0 является кодовым словом для буквы А. Кодовым словом для буквы В будет являться 1100, кодовые слова 11, 110 и 111 использовать нельзя, поскольку не получится закодировать остальные буквы таким образом, чтобы возможная сумма длин кодовых слов для букв В, Г, Д и Е была наименьшей. Кодовым словом для буквы Г будет являться 1101, для буквы Д — 1110, а для буквы Е — 1111.

Таким образом, сумма кратчайших кодовых слов для букв В, Г, Д и е будет равняться 4 + 4 + 4 + 4 = 16.

 

ответ: 16.

Объяснение:

Var sp: real;     n,k,m,mn,mx: integer; begin   mx: =0; mn: =300;   readln(n);   k: =0;   while k< n do   begin     read(sp);     m: =round(sp);     if m< 30 then mn: =30;     if m> mx then mx: =m;     k: =k+1;   end;   write(mx);   if mn=30 then writeln('   yes')   else writeln('   no'); end.8 43.2 29.3 48.6 78.54 62 71 93.15 110 110   yes5 45 55.6 78.9 30 87.6 88   no