Question

На­пи­ши­те программу, ко­то­рая в по­сле­до­ва­тель­но­сти натуральных чисел вы­чис­ля­ет сумму всех дву­знач­ных чисел, крат­ных 8. Про­грам­ма получает на вход на­ту­раль­ные числа, ко­ли­че­ство введённых чисел неизвестно, по­сле­до­ва­тель­ность чисел за­кан­чи­ва­ет­ся числом 0 (0 – при­знак окончания ввода, не вхо­дит в последовательность). Ко­ли­че­ство чисел не пре­вы­ша­ет 1000. Введённые числа не пре­вы­ша­ют 30 000. Программа долж­на вывести одно число: сумму всех дву­знач­ных чисел, крат­ных 8. в программе кумир пожалуйста

Answer 1

Алг
нач
цел a,sum
ввод a
sum:=0;
нц пока a<>0
если (mod(a,8)=0) и (a>9) и (a<100) то sum:=sum+a все
ввод a
кц
вывод sum
кон

Answer 2

Для решения этой задачи на языке Кумир, мы можем использовать цикл для считывания чисел из последовательности до тех пор, пока не встретим число 0. Внутри цикла будем проверять, является ли число двузначным и кратным 8, и если это так, добавляем его к общей сумме. После окончания ввода чисел выводим полученную сумму. Вот как может выглядеть программа:

kumirCopy code
алг Программа
    пер Предпоследнее, Последнее, Сумма: цел
    пер Число: цел
    
    Сумма := 0
    Предпоследнее := 0
    Последнее := 0
    
    пока истина
        ввод "Введите число: ", Число
        если Число = 0 то
            перерыв
        иначе
            Предпоследнее := Последнее
            Последнее := Число
            если (Последнее > 9) и (Последнее < 100) и (Последнее % 8 = 0) то
                Сумма := Сумма + Последнее
            те
                если (Последнее = 0) и (Предпоследнее = 0) то
                    вывод "Не было введено ни одного числа"
                те
                    если Последнее = 0 то
                        вывод "Сумма чисел, кратных 8: ", Сумма
                    те
                        продолжить
                    кц
                кц
            кц
        кц
    кц
кон

старт Программа

Это простой пример программы на языке Кумир для вычисления суммы двузначных чисел, кратных 8, в последовательности натуральных чисел. При вводе 0 программа завершит выполнение и выведет сумму найденных чисел.