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>
<span>Информация из корзины хранится на жёстком диске.
При удалении файлов из корзины ОС система помечает сами имена файлов как удалённые, но они на жёстком диске остаються и окончательно уничтожаються если на их место размещается другой файл (поскольку данное место является свободным).</span>
Ответ:
Объяснение:
1. read(a,b,c); вместо read('a,b,c');
2. Добавить скобку после 4ас f: =(-b+sqrt(sqr(b)+4*a*c))/(2*a)+abs(c);
Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.
Объяснение:
Вот таблица, горизонтальные не принимает;)