profile
Опубликовано 5 лет назад по предмету Информатика от ТимофейЮ

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

  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.
    1. Ответ
      Ответ дан Аккаунт удален
      Так. Вы заявили, что у Вас не работало. У меня работало. Давайте Ваши данные, которые у Вас не работали, я проверю. А иначе все на уровне болтовни.
    2. Ответ
      Ответ дан Аккаунт удален
      Вот, только что получил:
    3. Ответ
      Ответ дан Аккаунт удален
      10
      18 35 42 22 12 62 90 118 103 222
      3
    4. Ответ
      Ответ дан ТимофейЮ
      С этими числами получилась. Ладно, спасибо Вам.
    5. Ответ
      Ответ дан Аккаунт удален
      Значит, что-то вводили не так.
Самые новые вопросы