richav
Опубликовано 6 лет назад по предмету Информатика от richav


на вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  ReadSeqIntegerWhile(t->t<>0).Pairwise      .Where(t->Abs(t[0]-t[1])<7).Count.Printlnend.Пример6 11 -9 -2 5 10 7 9 13 -6 -2 06
Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц