Есть ответ 👍

Определить: ВНП (двумя способами), ВВП, ЧНП, НД, ЛД, РЛД, личные сбережения, сальдо торгового баланса, чистые инвестиции

125
143
Посмотреть ответы 2

Ответы на вопрос:


Решение:
ВНП (по расходам) = расходы на личное потребление + валовые инвестиции + госзакупки товаров и услуг + экспорт — импорт = 325 + 76 + 105 + 57 - 10 = 553.
ВНП (по доходам) = заработная плата + процентные платежи + + арендная плата + доходы от собственности + прибыль корпораций (которая равна налогу на прибыль корпораций + дививденды + + нераспределенная прибыль корпораций) + косвенные налоги на бизнес + стоимость потребленного капитала = 382+ 25 + 24 + 63 + + 31(9+18 + 4) + 11 + 17 = 553.
ВВП = ВНП - доходы, полученные гражданами страны за рубежом + доходы, полученные иностранцами в данной стране = = 553- 12 + 8 = 549.
ЧНП = ВНП - стоимость потребленного капитала = 553 - 17 = 536.
НД = ЧНП - косвенные налоги на бизнес = 536 - 11 = 525, или НД = заработная плата + процентные платежи + арендная плата + доходы от собственности + прибыль корпораций = 382 + + 25 + 24 + 63 + 31 = 525.
ЛД = НД - взносы на социальное страхование - налог на прибыль корпораций - нераспределенная прибыль корпораций + + трансфертные платежи + проценты по государственным облигациям = 525 - 43 - 9 - 4 + 16 + 19 = 504.
РЛД = ЛД - индивидуальные налоги = 504-41 = 463.
Личные сбережения = РЛД - расходы на личное потребление = = 463-325 = 138.
Сальдо торгового баланса = экспорт - импорт = 57- 10 = 47.
Чистые инвестиции = валовые инвестиции - стоимость потребленного капитала = 76- 17 = 59.

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i]:3);
 end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
 begin
  textcolor(12);
  write(a[i]:3);
 end
else
 begin
  textcolor(15);
  write(a[i]:3);
 end;
textcolor(15);
readln
end.

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Другие предметы

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS