Задать вопрос
1 сентября, 01:13

Вводится число. Напечатать YES, если оно является степенью двойки, NO - иначе.

Ввод 1 8

Вывод 1 YES

Ввод 2 22

Вывод 2 NO

+2
Ответы (1)
  1. 1 сентября, 02:08
    0
    Program x2;

    var n:longint;

    begin

    Write ('Введите n, n = ') ;

    Readln (n) ;

    While n mod 2 = 0 do

    n: = n div 2;

    If n=1 then Write ('YES')

    else write ('NO') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вводится число. Напечатать YES, если оно является степенью двойки, NO - иначе. Ввод 1 8 Вывод 1 YES Ввод 2 22 Вывод 2 NO ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Вводятся три целых числа. Выведите YES, если они расположены в порядке неубывания (каждое следующее больше либо равно предыдущего), NO иначе. Пример 1 Ввод Вывод 1 2 3 YES Пример 2 Ввод Вывод 1 3 2 NO Пример 3 Ввод Выво д 1 3 3 YES
Ответы (1)
Напишите задачи в Паскале задача1 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ... 1000000] Вывести на экран их произведение.} задача2 {вводится целое число n от [0 ... 200]. Затеи вводится n целых чисел от [0 ...
Ответы (2)
Как это решать? И что тут вообще надо сделать? A+B Ограничение времени 1 секунда Ограничение памяти 64Mb Ввод стандартный ввод или input. txt Вывод стандартный вывод или output. txt Даны 2 числа a и b. Найти сумму этих чисел.
Ответы (1)
Даны три числа. Выведите медиану этого набора - второе по величине число. На вход подаются 3 числа. Ввод Вывод 1 2 3 2 Пример 2 Ввод Вывод 1 3 2 2 Пример 3 Ввод Вывод 2 1 3 2
Ответы (1)
Пример работы программы: Ввод: 5 5 5 Вывод: 0 0 0 Ввод: 5 8 5 Вывод: 8 8 8 Ввод: 5 6 7 Вывод: 5 6 7
Ответы (1)