На вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль
На вход-целые числа, количество неизвестно, заканчивается 0(while.)Найти количество пар элементов (пара элементов - это любые подряд идущие в последовательности два числа), модуль разности которых меньше 7. паскаль
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
num, prevNum, countPairs: integer;
begin
countPairs := 0;
read(prevNum);
while prevNum <> 0 do
begin
read(num);
if abs(num - prevNum) < 7 then
countPairs := countPairs + 1;
prevNum := num;
end;
writeln('Number of pairs with a difference less than 7: ', countPairs);
end.