Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число, кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести одно число - количество чисел, кратных 3.

// напишите программу, которая в последовательности натуральных чисел определяет количество //чисел, кратных 3. программа получает на вход количество чисел в //последовательности, а затем сами числа. в последовательности всегда имеется число, //кратное 3. количество чисел не превышает 100. введённые числа не превышают 300. //программа должна вывести одно число - количество чисел, кратных 3. var  i,j,x  : word;         n          : integer; begin   writeln('введите количество цифр в последовательности');   readln (j);   if j> 100 then //проверка накличество чисел в последовательности           begin               writeln ('по условия цифр не должно быть более 100');               writeln ('введите количесво цифр еще раз');               readln (j);           end;   for i: =1 to j do   begin       writeln ('введите ',i,' число');       readln (n);       if n> 300 then //проверка максимального значения числа           begin               writeln ('данное число не удовлетворяет условиям (> 300');               writeln ('введите его еще раз');               readln (n);           end;           n: = n mod 3;           if n=0 then x: =x+1;           end;     writeln ('количество чисел, кратных 3: ');     writeln (x); end.

6

Объяснение:

колонка А- 2(А2,А3)

колонка В-2(В2,В3)

колонка С-2(С2,С3)