Program x2; var n:longint; begin Write('Введите n, n = '); Readln(n); While n mod 2 = 0 do n:= n div 2; If n=1 then Write('YES') else write('NO'); end.
Расстояние между ними через Т - S - v1 * T - v2 * T : Допустим 1 стоит, а 2 идет навстречу 1, тогда 2 пройдет расстояние за время Т = скорость на Т (расстояние = скорость умножить на время) значит сейчас их расстояние будет = Расстояние изначально - Расстояние пройденное = Расстояние Сначала - скорость умножить на Т; Теперь пусть будут двигаться они вдвоем, Значит 1 пройдет расстояние = его Скорость умножить на Т Тогда расстояние будет = Расстояние изначально - Расстояние, которое Расстояние, которое
подставляем буквы и получаем, что расстояние = расстояние изначально - скорость 2 умножить на Т - скорость 1 умножить на Т
var n:longint;
begin
Write('Введите n, n = ');
Readln(n);
While n mod 2 = 0 do
n:= n div 2;
If n=1 then Write('YES')
else write('NO');
end.