Question

Срочно! Дана последовательность чисел. 0-остановка последовательности. Найти процент чисел, кратных пяти. (решить через repeat untill)

Answer 1

var

 totalCount, count, num: integer;

begin

 totalCount := -1; count := 0; num := -1;

 repeat

   totalCount := totalCount + 1;

   if (num mod 5 = 0) then count := count + 1;

   read(num);

 until (num = 0);

 write((count * 100) / totalCount, '%');

end.

Answer 2

Хорошо! Я могу помочь вам решить эту задачу с использованием цикла "repeat until". Вот пример кода на псевдокоде, который решает вашу задачу:

scssCopy code
переменная общее_количество = 0
переменная количество_кратных_пяти = 0

повторять
    ввод числа
    если число равно 0, то
        прервать цикл
    иначе если число кратно 5, то
        увеличить количество_кратных_пяти на 1
    увеличить общее_количество на 1
пока истина

процент_кратных_пяти = (количество_кратных_пяти / общее_количество) * 100
вывести процент_кратных_пяти

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