Question

Напишите программу, которая в последовательности целых чисел определяет количество нечетных чисел кратных 3.Программа получает на вход целые числа, количество веденных чисел неизвестно, последовательность чисел заканчиваются числом 0 (0-признак окончания ввода, не входит в последовательность.

Answer 1

{

a - вводимое число

n - количество чисел удовлетворяющих условию

числа можно вводить в строку через пробел

отрицательные числа учитываются тоже

}

var

   a, n : integer;

   

begin

   repeat

       read(a);

       if (abs(a mod 2) > 0) and (a mod 3 = 0) then n += 1;

   until a = 0;

   writeln('n = ', n);

end.