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.