1.найти произведение всех целых чисел от а до 100 (а< 100) кратных 17,но не кратных 2 2.вычислите: 98+96+94+92+90+88++6+4+2 3.определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно. 4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. в каждый следующий день он робегал на 3 км больше ,чем в предыдущий. определить суммарное расстояние. 5. в пионерском лагере n отрядов с различным количеством детей. сколько всего детей в пионерском лагере?

program z1;

uses crt;

var a,i: integer;

        p: longint;

begin

    clrscr;

      p: =1;  

      write('введите число а: ');

      readln(a);  

      for i: =a to 100 do  

          p: =p*a;

    writeln('произведение всех чисел от  ',a,'до 100: ',p);

    readkey;

end. 

 

program z2;

uses crt;

var s,i: integer;

i: =2; s: =0;

while(i< =98) do

    begin 

        s: =s+i;  

          i: =i+2;

end;

    clrscr;

      write('сумма последовательности: ',s);    

    readkey;

end. 

 

program z3;  

uses crt;

var a,i: integer;

begin     

      clrscr;

      a: =0;      

      for i: =100 to 999 do

          if ((i mod 5)=0 and (i mod 21)=0) then

                a: =a+1;                    

      write('количество 3-значных чисел делящихся без остатка на 5 и 21: ',a);  

    readkey;

end. 

 

program z4;  

uses crt;

var a,i,s: integer;

begin     

      clrscr;

        s: =10:  

        write('введите количество тренировочных дней: ');    

        readln(a);

          for i: =2 to a do

                s: =s+3;

        write('суммарное расстояние: ',s);        

readkey;

end. 

 

program z5;

uses crt;

var a,i,n,s: integer;    

begin     

      clrscr;

      write('введите количество отрядов: ');

      readln(n);  

      s: =0;  

 

      for i: =1 to n do

          begin

                write('введите количество детей в  ',i ,'-м отряде: ' );  

 

                readln(a);

                clrscr;  

                s: =s+a;

          end;      

    writeln;

    writeln('общее количество детей в лагере: ',s);

    readkey;

end. 

 

#include < iostream> #include < map> #include < vector> using namespace std; map< pair< int, int> , int> saved_rec; map< int, pair< int, int> > path; int max_cost(const vector< int> & cost, int day, int length) {       if (day + 1 < length)             length = day + 1;       if (saved_rec[make_pair(day, length)] ! = 0)             return saved_rec[make_pair(day, length)];       int tmp_cost, max = cost[day] * length, max_i = length;       if (day ! = 0)             for (int i = 0; i < = length; ++i)             {                                     tmp_cost = max_cost(cost, day - 1, length-i)                         + cost[day] * i;                   if (tmp_cost > max)                   {                         max = tmp_cost;                         max_i = i;                   }             }       saved_rec[make_pair(day, length)] = max;       if (max_i ! = 0)             path[max] = make_pair(day, max_i);       return max; } int main() {       vector< int> cost = { 6, 2, 5, 4, 5, 3, 3, 4};       int last_day_num = cost.size() - 1,             total_length = cost.             max;             max = max_cost(cost, last_day_num, total_length);       cout < < "max profit: " < < max < < endl;       pair< int, int> day_count;       int sm = 0;             do       {             day_count = path[max];             cout < < "day: " < < day_count.first < < ", length: " < < day_count.second < < endl;             max -= cost[day_count.first] * day_count.second;       } while (max ! = 0); }