Дано целое число N( больше 0)Если оно является степенью числа 2,то вывести True ,если не является Folse
Дано целое число 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.
Не нашли ответ?
Похожие вопросы