Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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.