Pascal. Задача 3-5

Пользователь вводит целые числа, заканчивая ввод числом 0. Подсчитать и вывести, сколько среди них нечетных чисел, но при этом не делящихся на 5.

Примечание: Если число проходов цикла заранее неизвестно, то удобнее использовать while или repeat.

Решение

var
  a, n : integer;
begin
  n := 0;
  repeat
    write('Введите число (0 - Закончить ввод): ');
    read(a);
    if (a mod 2 = 1) and (a mod 5 <> 0) then inc(n);
  until a = 0;
  writeln('Число нечетных чисел, не делящихся на 5: ', n);
end.