Байт килобайт мегабайт и гигабайт
1 гигабайт=1024 мегабайт
1 мегабайт=1024 килобайт
1 килобайт=1024 байт
ну и для общего развития 1 байт=8бит
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>
Много воды, но о большой скорости никто не говорил, верно?)
Ну учиться Пользоваться компьютером