Вводится число. Напечатать YES, если оно является степенью двойки, NO - иначе.
Ввод 1 8
Вывод 1
YES
Ввод 2
22
Вывод 2
NO
Ответы на вопрос
Ответил nemp
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.
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.
Новые вопросы