Регистрация
rkbsiti
04.02.2023 21:01
Информатика
Есть ответ 👍

Нужно ! 2. На балансе тепличного хозяйства «Цветы-всем» числятся 18 теплиц, приносящих прибыль, и несколько
убыточных. Сообщение о том, что в одной из убыточных теплиц высадили розы, несет 2 бита информации.
Сколько убыточных теплиц в хозяйстве «Цветы-всем»?
3. Автобусы маршрутов №32 и №14 проходят через остановку «Музей». Сообщение о том, что к остановке
подошел автобус №14 несет 4 бита информации. Вероятность появления на остановке автобуса №32 в два
раза меньше, чем вероятность появления автобуса №14. Сколько информации несет сообщение о
появлении на остановке автобуса №32?
4. Находясь в экстремальных условиях, турист получает несколько сообщений о погоде и о маршруте
продвижения. Количество сообщений о погоде – 35. Получение сообщения о маршруте продвижения несет
3 бита информации. Сколько сообщений получил турист?
5. На метеостанцию поступают сообщения о двух погодных явлениях: о выпадении снега и дождя.
Сообщение о том, что выпал снег, несет 3 бита информации. Вероятность дождя в два раза меньше, чем
вероятность выпадения снега. Сколько информации несет сообщение о дожде.
6. В течение семестра студент А. Демидовский выполнял лабораторные работы письменно и в электронном
виде. Среди них – 2 письменных работы. Сообщение о том, что работа должна быть выполнена в
электронном виде, несет 4 бита информации. Сколько всего лабораторных работ выполнил студент
А.Демидовский?

251
425
Посмотреть ответы 1

Ответы на вопрос:

ledylog
ledylog
4,4(31 оценок)

var

  a, s: real; //a - вводимое с клавиатуры число, s - сумма чисел

 

begin

  a: = 1;   //присваиваем начальное значение, чтобы цикл выполнился

  s: = 0;

  while a < > 0 do    

  begin

    writeln('введите положительное число');

    readln(a);

    if a < 0 then

    begin

      writeln('введено не положительное число. повторите ввод заново');

      continue; {если а - не положительное число, вводим число заново}

    end;

    s: = s + a;

  end;

  writeln('сумма:   ', s);   //выводим сумму

end.

   

Популярно: Информатика