Скорее всего твой ноутбук просто слабый(Скинь в комментарии его характеристики)
<h3>PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function Fib(n: integer): integer;
begin
if n < 3 then Result := 1
else
begin
var (a, b) := (1, 1);
for var i := 3 to n do
(a, b) := (a + b, a);
Result := a
end
end;
begin
for var i := 1 to 10 do Fib(i).Print; // контрольный пример
end.
<h2>1 1 2 3 5 8 13 21 34 55 </h2>
Необходимо щёлкнуть ЛКМ(левой кнопкой мышью) и выбрать необходимый файл, который вам понадобился.
Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
<span>end.</span>
я просто напишу то что должно быть в пропусках с лево на право
1) 3072 , 3
2) 16 384, 2
3) 12288. 1536
4)2 в 10, 1 (или 2 в 0)
5) 2 в 14, 2 в 1 = 2
6)не очень понятно)))) там умножить или степень в степень))) буту считать что умножить,, тогда 2 в 17, 2 в 14
а если степень в степнь то 2 в 21, 2 в 18