Таблица истинности (смотри прикрепленный скрин)
program raf105;
var k,a,p,b,m,let:real;
begin
write('Площадь участка (га.): ');
readln(k);
write('Средняя урожайность с гектара (ц.): ');
readln(a);
write('Увеличение участка за год (% от прошлогодней площади): ');
readln(p);
write('Рост урожайности за год (% от прошлогодней урожайности): ');
readln(b);
write('Желаемый урожай (ц.): ');
readln(m);
while a < m do
begin
k+= (k/100*p);
a+= (a/100*b);
let+= 1;
end;
writeln;
writeln('Желаемая урожайность (',m,' ц.) будет достигнута через ',let,' лет');
writeln('При этом, площадь участка будет составлять примерно ',round(k),' га.');
end.
<em><u>Язык программирования PascalABC</u></em>
1) N = 2^i
64 = 2^i
i = 6 бит глубина кодирования одного символа
2) 30 * 4 = 120 строк на 4 страницах текста
3) 7200 байт = 7200 * 8 = 57600 бит информационный объем сообщения
4) 57600 бит / 6 бит = 9600 всего символов в этом сообщении
5) 9600 символов / 120 строк = 80 символов в 1 строке этого сообщения
Ответ: 80 символов в 1 строке