Question

Написать программу для решение задания Егэ-14(Желательно на паскаль)
Пример:
4^2015+2^6048-2^2017-150

Answer 1

uses School;

begin

 var r := (4bi ** 2015 + 2bi ** 6048 - 2bi ** 2017 - 150).ToBase(2);

 Println('Нулей:', r.Count(d -> d = '0'));

 Println('Единиц:', r.Count(d -> d = '1'))

end.