Написать программу в pascal. переписать сведения о багаже из переменной bagaj в переменную bag. в переменной bag сведения о багаже каждого пассажира представляются массивом из двух целых чисел - числа вещей и общего веса вещей, выраженного в граммах. составить также программу обратного преобразования: переписи сведений о багаже из переменной bag в переменную bagaj.

// PascalABC.NET 3.0, сборка 1073
var
  Bag,Bagaj:array[1..2] of longint;
begin
  Bagaj[1]:=5; Bagaj[2]:=43600;
  { перенос Bagaj -> Bag }
  Bag[1]:=Bagaj[1]; Bag[2]:=Bagaj[2];
  Writeln('Предметов- ',Bag[1],', общий вес ',Bag[2]);
 
  Bag[1]:=4; Bag[2]:=24540;
  { перенос Bag -> Bagaj }
  Bagaj[1]:=Bag[1]; Bagaj[2]:=Bag[2];
  Writeln('Предметов- ',Bagaj[1],', общий вес ',Bagaj[2]);
end.

Тестовое решение:
Предметов- 5, общий вес 43600
Предметов- 4, общий вес 24540

Var s:string;
n,k,i:integer;
begin
for n:=1 to 2 do
 begin
 writeln('Введите строку ',n,':');
 readln(s);
 k:=0;
 for i:=1 to length(s) do
  begin
  case s[i] of
   '[': k:=k+1;
   ']': k:=k-1;
   end;
  end;
 if k=0 
 then writeln('В строке ',s,' количество [ и ] одинаково')
 else writeln('В строке ',s,' количество [ и ] не одинаково');
 end;
end.

Пример:
Введите строку 1:
c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c
В строке c:=a[imax,j]; a[imax,j]:=a[imin,j]; a[imin,j]:=c количество [ и ] одинаково
Введите строку 2:
Просто [ пример ]] со [[ скобками
В строке Просто [ пример ]] со [[ скобками количество [ и ] не одинаково

1г углеводы - 4,1 ккал

1 г жиров — 9,3 ккал

1 г белков — 4,2 ккал

Вычесления крайне простые,на пример возмем порцию картлофеля с маслом:

1.

От белков : 2,7г*4,2ккал/г=11.34ккал

От углеводов:39г*4.1ккал/г=159.9ккал

От жиров:7г*9.3ккал/г=65.1ккал

 

2.Общая калорийность блюда

11.34+159.9+65.1=236.34(кка)

 

3.Если в обед входят ещё какие блюда то сумируешь их энергетические ценности каждого компонента(б,угл,ж).

4.Суммируешь общую каллорийность блюд .

 

Здесь главное продумать структуру таблицы .