Построить логические схемы по формулам

Var m : array[0..6] of Integer;
  i,k,N : Integer;
Begin
  For i:=0 to 6 do m[i]:=0;
  Readln(N);
  k:=6;
  While N>0 do
  Begin
    If N>=Power(2,k) then
    Begin
      N:=N-Trunc(Power(2,k));
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=0 to 6 do Writeln(Power(2,i),'  ',m[i],' шт.');
end.

Еще вариант:
Const
  NN = 7;
  money : array[1..7] of Integer = (1,2,4,8,16,32,64);
Var m : array[1..NN] of Integer;
  i,k,N : Integer;
Begin
  For i:=1 to NN do m[i]:=0;
  Readln(N);
  k:=NN;
  While N>0 do
  Begin
    If N>=money[k] then
    Begin
      N:=N-money[k];
      Inc(m[k]);
    end else Dec(k);
  end;
  For i:=1 to NN do Writeln(money[i],'  ',m[i],' шт.');
end.

ответ:

объяснение: чтобы стать студентом по обмену, необходимо для начала поступить в вуз на родине, в котором есть отдел международного образования. этот отдел отвечает за сотрудничество с иностранными университетами, в том числе и в вопросе обмена.

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

преимущество учебы по обмену — это возможность остаться после успешного завершения университета в другой стране, устроится на работу и получить гражданство.