program pole; var a, b, c, d, n, kolvo, x, y: real; begin write ('За сколько часов топчет землю Нейромонах Феофан? '); read (a); write ('За сколько часов топчет землю Балалаечник Никодим? '); read (b); write ('За сколько часов топчет землю Косолапый Мишка? '); read (c); write ('За сколько часов топчет землю 1 Добрый Молодец? '); read (d); write ('За сколько часов нужно выкопать землю? '); read (n); x:=1/a+1/b+1/c; kolvo:=(1/n-x)/(1/d); if (kolvo<0) then write ('Группа справится без молодцев.') else begin y:=kolvo; if (((trunc(y*10)) mod 10) <5) then kolvo:=kolvo + 1; write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo)); end; end.
16
Объяснение:
1. Алфавит мощностью 26 символов требует для кодирования символа 5 бит (2⁴ < 26 < 2⁵). 22 символа займут 22×5 = 110 бит = 110 / 8 = 13.75 байта, округляем до целого вверх, получаем 14 байт.
2. Номер года обозначается одним из 100 чисел. 2⁶ < 100 > 2⁷, поэтому для кодирования требуется 7 бит.
3. Номер для обозначается одним из 366 чисел. 2⁸ < 366 > 2⁹, поэтому для кодирования требуется 9 бит.
4. Всего для кодирования срока действия потребуется 7+9 = 16 бит = 16/2 = 2 байта
5. Вся информация на пропуске займет 14+2 = 16 байт
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.