Напишите программку, которая в последовательности естественных чисел определяет количество

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

Задать свой вопрос
1 ответ

//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.

Проскурова Лариса
function Iter(a: array of integer): integer;begin foreach var x in a do if x mod 10 = 6 then Result += 1;end;
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт