Question

Система КуМир нужно: Составить цикл (для, пока и кц при).1) Составьте программу, которая вычисляет среднее арифметическое положительных и четных чисел из N введенных. Значение N вводится с клавиатуры.2) Y=(2sin^2a)/(cos2a)  При этом  a=0.8;0.7; 0.6; 0.5Программу писать на русском языке.

Answer 1

АЛГ 
нач
цел Н, буф, _и, к
к := 0
вещ сред
сред := 0
ввод Н
нц для _и от 1 до Н
ввод буф
если (буф > 0) и (mod(буф, 2) = 0) то
к := к + 1
сред := сред + буф
все
кц
вывод сред / к
кон


алг 
нач
цел _и
нц для _и от 5 до 8
вывод "Y(", _и / 10, ") = ", (2 * sin(_и / 10) * sin(_и / 10)) / (cos(_и / 10) * cos(_и / 10)), нс
кц
кон

Answer 2

Конечно, вот программа на языке КуМир, которая выполняет указанные задачи:

lessCopy code
-- Задача 1: Вычисление среднего арифметического положительных и четных чисел

ввод(N, "Введите количество чисел: ")

сумма := 0
количество := 0

для i от 1 до N с шагом 1 выполнять
    ввод(num, "Введите число: ")
    если num > 0 и num % 2 = 0 то
        сумма := сумма + num
        количество := количество + 1
    кц
конец

если количество > 0 то
    среднее := сумма / количество
    вывод("Среднее арифметическое положительных и четных чисел: ", среднее)
иначе
    вывод("Нет положительных и четных чисел.")
конец

-- Задача 2: Вычисление значения выражения Y=(2sin^2a)/(cos2a) для заданных значений a

a := 0.8
вывод("Значение a =", a)
Y := (2 * sin(a) * sin(a)) / cos(2 * a)
вывод("Значение Y =", Y)

a := 0.7
вывод("Значение a =", a)
Y := (2 * sin(a) * sin(a)) / cos(2 * a)
вывод("Значение Y =", Y)

a := 0.6
вывод("Значение a =", a)
Y := (2 * sin(a) * sin(a)) / cos(2 * a)
вывод("Значение Y =", Y)

a := 0.5
вывод("Значение a =", a)
Y := (2 * sin(a) * sin(a)) / cos(2 * a)
вывод("Значение Y =", Y)

Эта программа сначала запрашивает количество чисел (N) и затем вводит N чисел с клавиатуры. Далее она вычисляет среднее арифметическое положительных и четных чисел и выводит его. Затем программа вычисляет значения выражения Y для заданных значений a (0.8, 0.7, 0.6, 0.5) и выводит их на экран.