Число 307 в двоичной записи выглядит вот так : <span>100110011
соответственно 5 единиц. (перевести число 307 в двоичную систему и просто посчитать единицы)</span>
Ответ:
program Example;
var
a, b: Double;
begin
Write ('Введите длину и ширину участка: ');
ReadLn (a, b);
WriteLn ('Площадь = ', (a + b) * 2 :10 :2);
ReadLn;
end.