Три детских лагеря — «Орленок», «Созвездие», «Туристенок» (Крым) — ежедневно принимают соответственно 30, 20 и 16 человек. Экскурсионная программа каждой группы

состоит из посещения аквапарка, посещения Ласточкиного

гнезда и путешествия на гору Ай-Петри. Стоимость экскурсий на человека для разных лагерей приведена на рис. П6.17.

При этом существуют ограничения на количество человек в экскурсии: аквапарк — 25, Ласточкино гнездо — 20,

Ай-Петри — 30 человек. От каждого лагеря на каждую экскурсию должно быть послано не менее 5 человек. Определите

оптимальное количество учеников для участия в каждой

экскурсии при заданных ограничениях, чтобы суммарные

расходы родителей были минимальны.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

program xxx;

      var i : integer;

                a : array[1..15] of real;                   n : real;   begin    randomize;     for i: =1 to 15 do        a[i]: =random(20)-20;  

    writeln('исходный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    n: =a[1];

    a[1]: =a[15];

    a[15]: =n;

    writeln('полученный массив а: ');

    for i: =1 to 15 do

          write(a[i]);

    readln

end.

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

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.