Диапазон -8..14 содержит в себе нуль, т.е. самый простой вариант ответа: Произведение этих чисел равно нулю.
Но если не рассматривать нуль в качестве множителя, то ответ: 3515028701184000
Var p : BigInteger;
i : Integer;
Begin
p:=1;
For i:=-8 to 14 do If i<>0 then p:=p*i;
Writeln(p);
end.
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) если отвечают Да или нет: 5 вопросов
2) 128 символов=2^7=7бит
5 знаков= 5*7=35бит
<span>Для ввода какой-либо информации в память компьютера. Например, клавиатура может использоваться для ввода текста.</span>
Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.