Некоторое число x из десятичной системы счисления перевели в системы счисления с основаниями 16 и 8. часть символов при записи утеряна. позиции утерянных символов обозначены знаком *: x= 1*016 = 56*8

#код на руби
for i in 0.."1FF".to_i(16)
    p [i, i.to_s(16), i.to_s(8)] if i%16==0 and (i/16/16)==1 and i/8==5*8+6
end

Вывод
[368, "170", "560"]

1) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, x;

cout << "Введите последний элемент массива(X): ";

cin >> x;

mas = new int[x];

for (int i = x-1; i >= 0; --i)

 mas[i] = i+1;

cout << "Массив:" << endl;

for (int i = 0; i < x; ++i)

 cout << mas[i] << ' ';

}

2) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, n;

cout << "Введите N: ";

cin >> n;

mas = new int[n];

for (int i = 0; i < n; ++i)

 mas[i] = pow(2, i+1);

cout << "Массив:" << endl;

for (int i = 0; i < n; ++i)

 cout << mas[i] << ' ';

}

Задание 1:

program prog;

var x,a,z:real;

begin

  write('Введите а кг груш и х стоимость этого количества (через пробел): '); readln(a, x);

  write('Введите z кг груш, стоимость которой надо посчитать: '); readln(z);

  write('Стоимость ', z:0:1, ' кг груш равна ', z*x/a:0:2);

end.

Задание 2:

У вас скорее всего ошибка в задании, т.к. на входе есть переменная a, а в формуле она отсутствует. Я предположил, что она на первом месте стоит.

program prog;

var a,b,c:real;

begin

  write('Введите a, b и c черезпробел: '); readln(a,b,c);

  write('3a²-b³:c²+4 = ', 3*sqr(a)-exp(3*ln(b))/sqr(c)+4:0:2);

end.