Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел ,кратных 6 и оканчивающихся на 2.Программа получает на вход количество чисел в последовательности,а затем сами числа.Количество чисел не превышает 100.Введенные числа по модулю не превышают 300.Программа должна вывести одно число:количество чисел,кратных 6 и оканчивающихся на 2.

Answer 1

var
  n,k,i,t:integer;
begin
  Read(n);
  k:=0;
  for i:=1 to n do begin
    Read(t);
    if (t mod 6=0) and (t mod 10=2) then Inc(k)
    end;
  Writeln(k)
end.

Answer 2

Так. Вы заявили, что у Вас не работало. У меня работало. Давайте Ваши данные, которые у Вас не работали, я проверю. А иначе все на уровне болтовни.

Answer 3

Вот, только что получил:

Answer 4

10
18 35 42 22 12 62 90 118 103 222
3

Answer 5

С этими числами получилась. Ладно, спасибо Вам.

Answer 6

Значит, что-то вводили не так.