Нужно решить оптимизационную в exel и прислать файлом.

в 2017 году алиса планирует отправиться в кругосветное путешествие. в начале 2012 года она готова начать делать сбережения для путешествия так, чтобы к началу 2017 года у нее было 21 тыс. евро. она может выбирать из трех типов акций a, b или c. каждая акция стоит 100 y. e. покупка акций осуществляется в начале каждого года. через год инвестиций в акции типа a выплачивается 104 y. e., через два года инвестиций в акции типа b — 110 y. e., через четыре года инвестиций в акции типа c — 125 y. e. в начале каждого года — 2012, 2013, 2014 и 2015 алиса планирует инвестировать всего не более 5 тыс. y. e. необходимо найти минимальный суммарный объем инвестиций за 2012–2015 годы. постройте модель и найдите оптимальный план. как изменится модель, если появляется еще один тип инвестиций: акции типа d? стоимость каждой такой акции составляет 100 y. e., а через три года ее стоимость составит 115 y. e.

клавиши переключения регистров caps lock, shift, ctrl, alt.

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.

1)

var a,b,c,d: real;

begin

  read(a,b);

  c: =(a+b)/2;

  d: =2*a*b;

  if a> b then begin

    a: =d;

    b: =c;

  end;

  if a< b then begin

  a: =c;

  b: =d;

  end;

  writeln(a,' ',b);

end.

2)

var a,b: integer;

begin

  read(a,b);

  if (a< 1) or (a> 31) then writeln(' день введен неправильно');

  if (b< 1) or (b> 12) then writeln(' месяц введен неправильно');

end.

3)

var a,b,c: real;

begin

  read(a,b,c);

  if (a> b)and(a> c)then writeln(a);  

    if (b> a)and(b> c)then writeln(b);

  if (c> b)and(c> a)then writeln(c);

end.