Составьте алгоритм длины окружности, если известен её радиус.

Var c,r: real; const pi=3.1415; begin write('введите радиус окружности'); read(r); c: =2*pi*r; writeln('длина окружности равна', c); end.

Const   csize = 10; var   m: array[1..csize] of integer; begin   randomize();   var max : = -(maxint);   write('исходный массив: ');   for var i : = 1 to csize do   begin       m[i] : = random(100) + 1;       if (i mod 2 = 0) and (m[i] > max) then max : = m[i];       write(m[i], ' ')   end;   write(newline, 'преобразованный массив: ');   for var i : = 1 to csize do   begin       if m[i] mod 3 = 0 then m[i] : = max;       write(m[i], ' ')   end end.

Берем третьи байты и переводим в двоичную систему счисления: добавим в начале нулей, чтобы получилось 8 цифр.   ←    ←  найдем маску. запишем с столбик. если элементы одинаковые, ставим соответствующее число, если элементы разные, ставим крестик: 00000101 00011101 000xx101    ← маска т.к. по правилу в маске, сначала идут единицы, переместим их в начало: 11xx0000 если бы по условию, надо было бы найти наименьшее возможное значение, то мы бы заменяли крестики(х) на нули. т.к. по условию необходимо наибольшее возможное значение, подставляем вместо крестиков(x), единицу и переведем в десятичную систему счисления: