Блог учителя Информатики

Решение задачи ExamBegin9


Условие задачи:

На вход подается целое положительное число. Если оно является степенью числа 2, то вывести текст «YES», иначе вывести «NO».


uses PT4Exam;

var
  a, x: integer;
  num: boolean;

begin
  Task('ExamBegin9');
  ReadLn(a);
  x := 1; num := false;
  while x <= a do
  begin
    x := x * 2;
    if (x = a) or (a = 1) then num := true;
  end;
  if num = true then Write('YES')
  else Write('NO');
end.
Поделиться:
Вам также может понравится
Делаем Черепашку в виде снежинки
Перевод десятичных чисел в двоичные на Pascal
Решение задачи ExamBegin80
Решение задачи ExamBegin79

Оставьте комментарий