Program getar;
uses crt;
var
S,ur:real;
god:integer;
begin
god:=0;
s:=100; //площадь
ur:=20; // урожайность
while s<=120 do
begin
god:=god+1; // подсчет лет
s:=s+((s/100)*5); // площадь ув. на 5%
ur:=ur+((ur/100)*2);// урожайн. ув. на 2%
end;
writeln('Cherez ',god,' goda ploshad budet bolshe 120 ');
end.
мне трудно объяснять на словах держи программу в ней алгоритм подсчета и тд..
Сначала нужно определить размер файла, который был передан,
для этого 32768 умножаем на 15, итого 491520 бит.
На одной странице выходит 48х8=384 бита информации.
Делим 491520 на 384, получаем 1280 страниц текста
Ответ прилагается на фото
<span>56 KB56000 Байт<span>57344 Байт</span></span>