цикл while do

[vadiprog]

Дано натуральное число N. Выведите слово YES, если число N является точной степенью двойки, или слово NO в противном случае.

Операцией возведения в степень пользоваться нельзя!

написать на Delphi

[vadiprog]

Написал сам

var n:real;
begin
readln(n);
while n>=2 do
n:=n/2;
if n=1 then write('YES') else write('NO');
end.

[veniside]

Проблемы в вашем коде начинаются с числа $800000000000001
Вот эта единичка на хвосте потеряется в результате многочисленных делений, и программа выдаст YES

Можно вполне обойтись и без плавающей точки, и код будет отрабатывать всегда корректно:

var
  s: string;
  n: Int64;
begin
  readln(n);
  s := 'YES';
  while (1 < n) do
    if (0 <> (n and 1)) then begin
      //
      s := 'NO';
      break;
    end
    else
      n := n shr 1;
  //
  writeLn(s);
end.