Для записи текста использовался 16-символьный алфавит. каждая страница содержит 32 строк по 64 символов в каждой. какой объем информации в кбайтах содержит 4

16×32×64×1024×4=134217728

#include <iostream>
using namespace std;

template <typename T>
class Stack
{
private:
T *p;
int top, length;

public:
Stack(int = 0); // стандартный размер стека - 0
~Stack();
void push(T); // дополнение элементом
T pop(); // удаление и возврат элемента
void display(); // отображение стека
};

template <typename T>
Stack<T>::Stack(int size)
{
top = -1;
length = size;
if (size == 0) {
p = 0;
} else {
p = new T[length];
}
}

template <typename T>
Stack<T>::~Stack()
{
if (p != 0) {
delete [] p;
}
}

template <typename T>
void Stack<T>::push(T elem)
{
if (p == 0) {
cout << "Стек нулевого размера" << endl;
cout << "Введите размер стека: ";
cin >> length;
p = new T[length];
}
if ( top == (length - 1) ) {
cout << "\nНе могу дополнить стек элементом " << elem << ", стек полон" << endl;
return;
} else {
top++;
p[top] = elem;
}
}

template <typename T>
T Stack<T>::pop()
{
if ( (p == 0) || (top == -1) ) {
cout << "Стек пуст, не могу убрать элемент.";
return -1;
}
T ret = p[top];
top--;
return ret;
}

template <typename T>
void Stack<T>::display()
{
for (int i = 0; i <= top; i++) {
cout << p[i] << " ";
}
cout << endl;
}

int main()
{
/* создайте стек так:
Stack <int> stack1;
Stack <char> stack2;
где в угловых кавычках - тип, с которым работает стек.
как пользоваться - смотрите заголовок класса.
*/
return 0;
}

1. Вывести на экран N чисел, в порядке чередования (например если N = 9, то ответом будет 1 9 2 8 3 7 4 6 5)
2. Найти наибольший общий делитель и наименьшее общее кратное двух чисел.
3. Вывести введенную строку в обратном порядке.
Решения на Pascal:
1.

var n, i: integer;
begin
  read(n);
  for i := 1 to n do
    if odd(i) then write(i div 2 + 1, ' ')
    else write(n - i div 2 + 1, ' ')
end.

2.

var a, b, a1, b1, t: integer;
begin
  read(a, b);
  a1 := a;
  b1 := b;
  repeat
    t := a mod b;
    a := b;
    b := t;
  until b = 0;
  writeln('НОД=', a);
  writeln('НОК=', a1 * b1 div a);
end.

3.

var s, s1: string;
    i: integer;
begin
  read(s);
  s1 := '';
  for i := length(s) downto 1 do
    s1 += s[i];
  write(s1)
end.