1.Найти произведение всех целых чисел от а до 100 (а<100) кратных 17,но не кратных...

Question

1.Найти произведение всех целых чисел от а до 100 (а<100) кратных 17,но не кратных 2</p>

2.Вычислите: 98+96+94+92+90+88+,,,,,+6+4+2

3.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно.

4.спортсмен пробежал в 1-ый день тренеровки расстояние 10 км. В каждый следующий день он робегал на 3 км больше ,чем в предыдущий. Определить Суммарное расстояние.

5. в Пионерском лагере n отрядов с различным количеством детей. Сколько всего детей в пионерском лагере?

Answer 1

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</p>

   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.