=) есть микроб, который делится на 3 микроба. в дальнейшем появляющиеся микробы могут делиться на 4 микроба, могут делиться на 2, а могут и не делиться. образовалось 102 микроба. определите число делений, если известно, что число микробов, разделившихся на четыре в 6 раз меньше, чем число микробов, разделившихся на два.

Код на Ruby

microbs = 3
max = 102
steps = 1
steps2 = 0
steps4 = 0

while microbs < max
    microbs +=(4 - 1)
    steps+=1
    steps4+=1

    for i in 1..6
        microbs +=(2 - 1)
        steps+=1
        steps2+=1
    end
end
p [microbs, steps, steps2, steps4]

Вывод
[102, 78, 66, 11]

т.е. всего 78 делений, из них 11 на 4

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

Также, в последней программе можно сократить сообщение при отсутствии искомых чисел до просто "NO".

1) оканчивающиеся на 4 (минимальное):

цел ч,н,п,м=0

алг

нач

вывод "количество чисел в последовательности= "

ввод п

вывод "ввод последовательности натуральных чисел:", нс

нц для н от 1 до п

вывод "число ", н, " из ", п, " = "

ввод ч

если mod (ч, 10) = 4 то

если м=0 или м>ч то м := ч всё

всё

кц

вывод "минимальное число, оканчивающееся на четыре= ", м

кон

2) кратные 5 (среднее арифметическое):

цел ч,н=0,с=0,к=0

алг

нач

вывод "ввод последовательности натуральных чисел:", нс

нц

н := н+1

вывод "число №", н, " = "

ввод ч

если mod (ч, 5) = 0 и ч <> 0 то

с := с+ч

к := к+1

всё

кц при ч=0

если к=0 то

вывод "NO (нет чисел, кратных пяти)"

иначе

вывод "среднее арифметическое чисел кратных пяти= ", с/к

всё

кон

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

Также, в последней программе можно сократить сообщение при отсутствии искомых чисел до просто "NO".

1) оканчивающиеся на 4 (минимальное):

цел ч,н,п,м=0

алг

нач

вывод "количество чисел в последовательности= "

ввод п

вывод "ввод последовательности натуральных чисел:", нс

нц для н от 1 до п

вывод "число ", н, " из ", п, " = "

ввод ч

если mod (ч, 10) = 4 то

если м=0 или м>ч то м := ч всё

всё

кц

вывод "минимальное число, оканчивающееся на четыре= ", м

кон

2) кратные 5 (среднее арифметическое):

цел ч,н=0,с=0,к=0

алг

нач

вывод "ввод последовательности натуральных чисел:", нс

нц

н := н+1

вывод "число №", н, " = "

ввод ч

если mod (ч, 5) = 0 и ч <> 0 то

с := с+ч

к := к+1

всё

кц при ч=0

если к=0 то

вывод "NO (нет чисел, кратных пяти)"

иначе

вывод "среднее арифметическое чисел кратных пяти= ", с/к

всё

кон