1)Обчислити добуток и килькисть всих парних чисел вид 15 до 30, використовуючи цикл FOR
2)обчислити K=cos1/6+cos1/5+...cos1
Пожалуйста помогите, а то ничего не понятно

Лучше сразу говорить какой язык проходите, а то вдруг общественность догадается неправильно. Если вдруг паскаль, то я бы попробовал написать так:==== первая программа ==== program pr1 ;var i , n : integer ;var s : real ;beginn := 0 ;                         { количество найденных чётных чисел }s := 1 ;                         { получившееся произведение }   for i := 15 to 30 do     if i mod 2 = 0 then begin         n := n + 1 ;         s := s * i ;          end ;writeln ('kolicestvo chetnyh chisel=' , n , '  proizvedenie=' , s ) ;end.(Если я правильно догадался, что добуток значит произведение. Произведение такого кол-ва чисел будет слишком большим для разрядности целого числа, поэтому придётся использовать вещественное, а результат из-за этого получится приближённым). ====== вторая =======program pr2 ;var i : integer ;var k : real ;begin  k = 0 ;  for i := 6 downto 1 do          k := k + cos ( 1. / i ) ;  writeln ('K=' , k:10:8 ) ; end.(странный ряд. Чаще дают по-другому, типа 1/cos(x), ну что есть - то есть. Тогда всё ок).