1.Найти произведение всех...

1.Найти произведение всех целых чисел от а до 100 (а<100) кратных 17,но не кратных 2 2.Вычислите: 98+96+94+92+90+88+,,,,,+6+4+23.Определить и вывести на экран количество трехзначных чисел,которые делятся без остатка на 5 и 21 одновременно.

 

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.