М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vsofa666
vsofa666
07.08.2020 00:31 •  Информатика

Единичка и нолик играют в игру. ведущий называет натуральное число, затем, если в двоичном представлении числа больше единиц, то оно достаётся единичке, если нулей - нолику. если нулей и единиц поровну, то оно не достаётся никому. друзьям надоело считать числа вручную, и они поручили вам написать программу-счётчик. дано натуральное число, не превосходящее 1 000 000 000. вывести количество единиц и ноликов в его двоичном представлении. входные (файл bit. in): данные пример 1 пример 2 123 выходные (файл bit. out): данные пояснение: в первом случае 810 - 1000, - 1 единица и 3 нуля. во втором12310 -1111011, - единиц и 1 ноль.

👇
Открыть все ответы
Ответ:
таня43564
таня43564
07.08.2020

Чаще всего любимым городом, поселком, краем являеся то место, где человек родился или провел много времени. У каждого любовь к городу проявляется по-разному, если вообще проявляется. Я люблю Тараз. Скоро у моего города будет праздник, а значит, и у меня. Этот небольшой городок является моей Родиной. Здесь я родилась, , завела кучу друзей. С Таразом у меня связано много воспоминаний, ведь я знаю его вот уже Почти  восемнадцать лет. Я люблю этот город, сама не знаю за что . Ни за что конкретно, точнее , наверное, за то, что он есть и то что он именно такой, непохожий ни на любой другой город. Есть просто чувство, которое я не могу объяснить словами, а могу лишь провести аналогию с любовью к родителям или к любимому человеку. Ведь их мы любим не за что-то, а просто за то, что они есть.

Объяснение:

надеюсь

4,8(75 оценок)
Ответ:

program AB;

var

   a: Integer;

   b: Integer;

   b2: Real;

begin

   writeln('a, b = '); readln(a,b);

   a := a * 2;

   b2 := b / 2;

   writeln('a*2 = ', a, ' b : 2 = ', b2);

end.

Объяснение:

Программа имеет 3 переменные: a, b (для входных данных), b2 (для результата деления, который потенциально может быть не целым числом, а потому требует типа Real).

Программа выводит приглашение на ввод, считывает два целых числа (считывает их именно как целые числа Integer, что от нас и требуется по задаче), затем умножает число a на 2, а для b "просто разделить на 2" нельзя, т.к. надо учесть возможность деление может дать и вовсе не целое число (как в примере), поэтому результат мы записываем в переменную вещественного типа Real с именем b2.

Дальше вывод.

БОНУС. В принципе, данная задача имеет альтернативное решение через конструкцию если...то (if...then), которая использует только целые значения, но, наверное, данное решение неуместно.

Тем не менее, я всё же приведу его. Если Вы пока не проходили if.. then, то можете вернуться, когда пройдёте.

Суть решения сводится к тому, что существует всего один возможный ненулевой остаток от деления числа на 2, который в десятичном виде всегда записывается точно как ".5").

Поэтому

program AB_alt;

var

    a: Integer;

    b: Integer;

    bmod: Integer;

begin

    writeln('a, b');

    a := a * 2;

    bmod := b mod 2;

    b := b div 2;

    writeln('a*2 = ', a, 'b : 2 = ', b);

    if (bmod <> 0) then write('.5');

end.

Вычисляется остаток от деления, затем выводится целая часть от деления b на 2, и затем, если имеется ненулевой остаток (для положительных чисел он равен 1, для отрицательных -1), но в целом это всегда добавляет просто добавляет к целой части запись ".5".

Данный метод иногда бывает уместен (дело в том, что поведение real'ов не всегда предсказуемо для человека, не всегда оптимально по ресурсозатратам и т.п.), но точно не в учебных программах.

4,4(48 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ