1)обчислити добуток и килькисть всих парних чисел вид 15 до 30, використовуючи цикл for 2)обчислити k=cos1/6+cos1/5+ , а то ничего не понятно

260

500

Посмотреть ответы 2

Ответы на вопрос:

ahahahahahhahah

Информатика

4,7(83 оценок)

Лучше сразу говорить какой язык проходите, а то вдруг общественность догадается неправильно. если вдруг паскаль, то я бы попробовал написать так: ==== первая программа ==== program pr1 ; var i , n : integer ; var s : real ; begin n : = 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), ну что есть - то есть. тогда всё ок).