Var a:array[1..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>writeln('Введите количество элементов массива'); </span>
<span>read(n); </span>
<span>writeln('Введите элементы массива'); </span>
<span>for i:=1 to n do begin </span>
<span>read(a[i]); </span>
<span>if i mod 3 = 0 then a[i]:=0; </span>
<span>end; </span>
<span>for i:=1 to n do write(a[i],' '); </span>
<span>end.</span>
Пусть х - основание системы счисления
Составляем уравнение
1*x^2+2 = 2*(1*x+2)+1
x^2 - 2x + 2-4-1 = 0
x^2 - 2x - 3 = 0
корни 3 и -1
Значит х = 3 (больше 0)
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
<h3>n= 13</h3><h3>6 12 18 24 30 36 42 48 54 60 66 72 78</h3><h3>Среднее 42 </h3>
Носитель информации - это устройство, которое хранит в себе много и долго. В основном они используются для хранения какой-то информации. Например, они используются для:
- хранения результатов огромных математических исследований
- хранение персональных данных и всего содержимого какого-нибудь сайта
- хранение программного обеспечения, игр, различных файлов