Дано целое число 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.
Не нашли ответ?
Похожие вопросы