Задание 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.
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] << ' ';
}
100101₂=1*2^5=1*2^2=1=37₁₀
100101₅=1*5^5+1*5^2+1=3151₁₀
100101₈=1*8^5+1^8^2+1=32833₁₀
100101₁₆=1*16^5+1*16^2+1=1048833₁₀
4)
А304₁₆=10*16^3 + 3*16^2 + 0*16^1 + 4
ВС14₁₆=11*16^3 + 12*16^2 + 1*16 + 4
1010₈=1*8^3 + 0*8^2 + 1*8^1 + 0*8^0
5)
110011₂=51₁₀ (а если на самом деле число 11001₂, то 11001₂=25₁₀)
111₄=21₁₀
35₈=29₁₀
1B₁₆=27₁₀