• Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 6. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, оканчивающихся на 6. Pascal ABC C++ Python

Ответы 2

  • function Iter(a: array of integer): integer;begin foreach var x in a do if x mod 10 = 6 then Result += 1;end;
    • Автор:

      bacondl0i
    • 6 лет назад
    • 0
  • //PascalABC.NET

    function Iter(a: array of integer): integer;

    begin

     for var i := 0 to a.High do

       if a[i] mod 10 = 6 then Result += 1;

    end;

    begin

     var a := ReadArrInteger(ReadInteger());

     Print(Iter(a))

    end.

    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years