24 (8)=2*8 (1)+4*8 (0)=16+4=20
56 (16)=5*16 (1)+6*16 (0)=80+6=86
20 (10)+86 (10)=106 (10)
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
var
L,A:real;
begin
Writeln('Введите размер талии и длину стороны окна: ');
Read(L,A);
if L<Pi*A then Writeln('Пройдет')
else Writeln('не пройдет')
end.
<span>Типичный пример некорректно поставленной задачи! Если я вам напишу произвольный набор из 20 русских больших и маленьких букв, в этом будет информации абсолютный ноль! Хотя символов в алфавите 66, или без какой-нибудь одной (Ёё, Йй, Ьь, Ъъ) можно 64 сделать. </span>
<span>С другой стороны, для кодировки 64 символов достаточно 6 бит, стало быть, 20-символьное сообщение - 120 бит. Вроде как это и есть объём информации. Но мой более чем 30-летний стаж работы программистом этому противится!</span>
Управляющий объект - Мышь Объект управления - экранные объекты
Управляющий объект - процессор Объект управления - данные