Дано целое число N(gt;0)Если оно является степенью числа 2,то вывести True ,если не явля

Дано целое число N(>0)Если оно является степенью числа 2,то вывести True ,если не является Folse
Гость
Ответ(ы) на вопрос:
Гость
Var n,m: integer; begin   write('число:  ');  readln(n);   m:=1;   repeat     m:=m shl 1;   until m>=n;   if m=n then writeln('True')   else writeln('False') end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы