Регистрация
Igor171717
29.04.2023 22:55
Информатика
Есть ответ 👍

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

118
440
Посмотреть ответы 2

Ответы на вопрос:

osokina78
osokina78
4,7(73 оценок)
Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   readseqintegerwhile(t-> t< > 0).pairwise           .where(t-> abs(t[0]-t[1])< 7).count.println end. пример 6 11 -9 -2 5 10 7 9 13 -6 -2 0 6
Хелп11111111111
Хелп11111111111
4,7(11 оценок)

ответ: 1 - 89;    2 - 214;   3 - 179;   4 - 115;  5 - 575;  6 - 287, 5

Объяснение:

1 - 89;    2 - 214;   3 - 179;   4 - 115;  5 - 575;

Популярно: Информатика