Срочно! Дана последовательность чисел. 0-остановка последовательности. Найти процент...

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.

Comments

а что такое "total count " и "num"

---

num - от слова number - переменная, которая хранит число (очередной член последовательности), а totalCount - переменная, которая хранит количество чисел кратных 5.

---

Спасибо за Ваши решения, выручили)

---

Точнее totalCount хранит количество чисел последовательности, а count хранит количество чисел кратных 5.

---

Ясно, спасибо большое)