Информацию в компьютере кодируют двоичным кодом
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger('N='), 7, t -> t + 7).Println
end.
<h3>N= 10</h3><h3>7 14 21 28 35 42 49 56 63 70</h3>
Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int main() {
<span> int n;
</span><span> cout<<"n = "; cin>>n;
</span><span> int a[n];
</span><span> cout<<"massiv: ";
</span><span> for (int i=0; i<n; i++) cin>>a[i];
</span><span>// по возрастанию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]<a[i]) swap(a[i],a[j]);
</span><span>// </span><span>вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span>// по убыванию
</span><span> for (int i=0; i<n-1; i++)
</span><span> for (int j=i+1; j<n; j++)
</span><span> if (a[j]>a[i]) swap(a[i],a[j]);
</span><span>// вывод на экран
</span><span> for (int i=0; i<n; i++) cout<<a[i]<<" ";
</span><span> cout<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>
1024 байт = 1 гб
Решение: в 1 гб = 1024 байт