Сообщение, содержащее 40 символов, составлено с символьного алфавита. Каков информационный объем сообщения? *

24 байт

200 бит

0,8 Кб

178 бит

​

Можешь "включить" подробный вывод, если объявишь макрос "#define DEBUG"

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace cool{
    class main
    {
        static void Main(string[] args)
        {
            int u1 = 1, u2 = 2;
            int l1 = 1, l2 = 1;
            double a = 0, eps = 0.001;
            int i = 2;
            int U, L;
            double A;

            U = u2 + u1;
            L = l2 + l1;
            A = (double)U / L;

            while (Math.Abs(A - a) > eps || i < 5)
            {
                a = A;
                i++;
                l1 = l2; u1 = u2;
                l2 = L; u2 = U;

                U = u2 + l2;
                L = l2 + l1;
                A = (double)U / L;
               
                #if DEBUG 
                Console.WriteLine("{0} -> {1}|{2}", i, U, L);
                #endif
                if (i == 5)
                    Console.WriteLine("Пятый элемент: {0}", A);
                if (Math.Abs(A - a) < eps)
                    Console.WriteLine("Элемент, отличающийся на менее чем {1}: {0}", A, eps);
            }
        }
    }
}

Var
  h1,h2:integer;
  n1,n2:string;
begin
  Write('Введите имя первой девочки: '); Readln(n1);
  Write('Введите рост первой девочки: '); Readln(h1);
  Write('Введите имя второй девочки: '); Readln(n2);
  Write('Введите рост второй девочки: '); Readln(h2);
  if h1>h2 then Writeln(n1,' выше, чем ',n2)
  else if h2>h1 then Writeln(n2,' выше, чем ',n1)
  else Writeln(n1,' и ',n2,' одного роста')
end.

Тестовое решение:
Введите имя первой девочки: Наташа
Введите рост первой девочки: 163
Введите имя второй девочки: Даша
Введите рост второй девочки: 167
Даша выше, чем Наташа

Блок-схема дана во вложении. Блоки ввода вывода упрощены в связи с невозможностью (и ненужностью) точно отобразить вид ввода и вывода.