Помогите пожалуйста решить задачу. С клавиатуры вводится число. Выяснить является ли...

Question

Помогите пожалуйста решить задачу.

С клавиатуры вводится число. Выяснить является ли число четным. Если число четное указать, является ли оно степенью двойки.

Answer 1

// PascalABC.NET 3.4, сборка 1766 от 25.08.2018

// Внимание! Если программа не работает, обновите версию!

begin

var s:=ReadlnString('Введите натуральное число:');

var b:BigInteger;

if not BigInteger.TryParse(s,b) then

begin

Print('Это не натурвльное число');

Exit

end;

var r:=b.IsEven and b.IsPowerOfTwo;

if r then Println('Это степеь двойки')

else Println('Это не степень двойки')

end.

Comments

Парное - это на Украине. В русском языке - "четное".

---

Но вопрос-то по-русски задан был))) А украинский тут далеко не все понимают.

---

По-хорошему, эта проверка на четность - глупость. Есть только одно нечетное число, которое является нулевой степенью двойки - единица.

---

Раньше хотя бы в Mozilla можно было нормально тексты программ копировать, теперь и это поломали. Что тут скажешь...? Хотя, все и так уже давно сказано. И не раз.

---

Удивительно, что примерно года два уже идет последовательная ломка хоть как-то работавшего интерфейса под видом приспособления под смартфоны. А в нормальных браузерах все хуже и хуже работать. Погоня за массовостью. Когда-нибудь дойдет до этих странных людей, что в Информатике решения с телефонов почти никто не дает?

---

Ну сломают все окончательно скоро и те, кто дает решения уйдут нафик - терпение не вечно же - смотреть, как тут надо тобой эти сайтописатели изгаляются. А вслед за ними уйдут и те, кто эти вопросы задает. И не будет тут раздела информатики... этого хотят добиться?