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. 

 

1. 10

2. 12

3. 3

4. 22

5. 15

6. 34

7. 3

Часть 2

1. 

Var

 n:integer;

Begin

 Write('Введи число ');

 Readln(n);

 if (n mod 2) = 0 then write(n,' чётное) else write(n,' нечётное);

End.

2.

Var

 a,b:integer;

Begin

 Write('Введи числа ');

 Readln(a,b);

 if a>b then Begin Write('a = ',b*a,' b = ',a+b) else write('a = ',a+b,' b = ',a*b);

End.

3.

Var

 n:integer;

Begin

 write('Введи двузначное число ');

 Readln(n);

 if ((n div 10) = 6) or ((n mod 10) = 6) then write('6 присутствует') else write('6 нет в этом числе');

End.

Подробнее - на - ответ:

Объяснение:

Var   m, n, nok, t, i: longint; begin   write('введите через пробел два целых положительных числа- ');   readln(m, n);   {сначала ищем нок - наименьшее общее кратное}   if m = n then begin       nok : = m;       t : = m * m   end   else begin       t : = m * n;       repeat           if m > n then m : = m - n else n : = n - m       until m = n;       nok : = t div m   end;   {теперь умножаем нок на числа натурального ряда,     пока не дойдем до величины t=m*n}   if nok = t then writeln('требуемых чисел нет')   else begin       i : = 1;       while (nok * i < t) do       begin           write(nok * i, ' ');           i : = i + 1       end   end end. тестовое решение: введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840 введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360 введите через пробел два целых положительных числа- 7 13 требуемых чисел нет