Разрабатывает алгоритм кто? исполняют алгоритм кто?

Разрабатывают разработчики. исполняет исполнитель. всегда ваш, капитан очевидность.

Var   a, b, c, d: integer;   x1, x2, x: real; begin   writeln('введите a,b,c');   read(a, b, c);   d : = sqr(b) - 4 * a * c;   if d > 0 then   begin       x1 : = (-b - sqrt(d)) / (2 * a);       x2 : = (-b + sqrt(d)) / (2 * a);       writeln('корни уравнения: x1=', x1, ' x2=', x2);       { потом убрать отсюда }       writeln('*** делаем проверку ***');       writeln(a, 'x(', x1: 0: 5, ')^2+', b, 'x(', x1: 0: 5, ')+', c, '=', a * sqr(x1) + b * x1 + c: 0: 5);       writeln(a, 'x(', x2: 0: 5, ')^2+', b, 'x(', x2: 0: 5, ')+', c, '=', a * sqr(x2) + b * x2 + c: 0: 5)       { и досюда }   end   else   if d < 0 then       write('нет корней')   else   begin       x : = -b / (2 * a);       writeln('корень уравнения: x=', x);   end; end. тестовое решение: введите a,b,c 2 -2 -40 корни уравнения: x1=-4 x2=5 *** делаем проверку *** 2x(-4.00000)^2+-2x(-4.00000)+-40=0.00000 2x(5.00000)^2+-2x(5.00000)+-40=0.00000

При алфавитном подходе выбираем мощность алфавита - пусть она будет стандартной для компьютера - 256 символов, тогда для  кодировки символа используется 1 байт. пусть встреча должна состояться в некоторый час (число минут нулевое).  самая короткая запись сообщения о дате и времени встречи - 3.10 15 и в нем 7  символов, включая пробел. тогда мы можем говорить, что сообщение несет 7  байт информации. или 7х8=56 бит. при содержательном подходе мы выбираем один из 365 дней и один из 24 часов. итого - 1 из 365х24=8760 вариантов. тогда количество информации находится по формуле бит. сравнение показывает, что содержательный подход дает оценки всегда ниже (может даже в десятки раз ниже), чем алфавитный.