Дано целое число 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
