• Помогите пожалуйста, решить задачу на тему "Массивы".
    Задать одномерный массив с клавиатуры из n-элементов, вывести количество пар, в которых хотя бы одно число заканчивается на число 2

Ответы 1

  • // PascalABC.NET 3.2, сборка 1389 от 01.03.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ReadArrInteger('Вводите:',ReadInteger('n='));  var k:=a.Pairwise.Where(x->(x[0] mod 10=2) or (x[1] mod 10=2)).Count;  Writeln('Количество искомых пар равно ',k) end.Примерn= 10Вводите: 35 113 42 18 13 72 52 37 10 14Количество искомых пар равно 5
    • Автор:

      madisyn
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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