Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 19.10.2015
Сообщений: 1

Найти все такие пары а и b, что сумма чисел от а до b равна s

19.10.2015, 15:50. Показов 1712. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Требуется написать программу, которая по заданному числу s найдет все такие пары а и b, что сумма чисел от а до b равна s (-100 000 < s < 100 000)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
19.10.2015, 15:50
Ответы с готовыми решениями:

Найти все пары чисел а и b такие, что сумма чисел равна х
Задание:Требуется написать программу которая по заданным числам х и y найдет все пары чисел а и b такие что сумма чисел равна х, а...

Найти все пары простых чисел, сумма которых равна 2x
Вариант №12 Ввести натуральное число x. Найти все пары простых чисел, сумма которых равна 2x.

Найти все пары чисел в диапазоне от 1 до 20, сумма которых равна 20
1. Найти все пары чисел в диапазоне от 1 до 20, сумма которых равна 20. 2. На произвольном множестве точек декартовой плоскости,...

7
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.10.2015, 16:38
а a и b чем ограничены?
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
19.10.2015, 16:39
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
  a,b,s : Integer;
 
Function SumAB(aa,bb : Integer) : Integer;
Begin
  SumAB:=(aa+bb)*(bb-aa+1) div 2;
end;
 
Begin
  s:=-40;
  For a:=-abs(s) to 99999 do
   For b:=a+1 to 100000 do
     If SumAB(a,b)=s then Writeln(a,' ',b);
end.
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.10.2015, 16:43
APALoff, LongInt же, не?
0
Модератор
Эксперт по электронике
 Аватар для ФедосеевПавел
8655 / 4491 / 1669
Регистрация: 01.02.2015
Сообщений: 13,899
Записей в блоге: 12
19.10.2015, 17:02
А не может возникнуть такая ситуация.
Пусть s=1.
Тогда ответы
a, b
-1, 2
-2, 3
.......
-1000, 1001
......
Поэтому присоединяюсь к вопросу
Цитата Сообщение от JokeR.BY Посмотреть сообщение
а a и b чем ограничены?
И более того, предлагаю ТС набрать условие задачи полностью и дословно, а не так, как он понял.
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
19.10.2015, 17:11
JokeR.BY, сарказм?

Добавлено через 58 секунд
ФедосеевПавел, я тоже думал о таком варианте... но тут надо просто какой-то разумный запас в диапазоне делать... ну либо ждать доп.инфо от ТС-а.
0
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
19.10.2015, 17:17
ФедосеевПавел, вот как раз из аналогиченого варианта в голове и возник вопрос)
APALoff, с чего вдруг? -32к..32к. у ТС'а - -100к..100к.
0
 Аватар для APALoff
1648 / 1077 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
19.10.2015, 17:21
JokeR.BY, ну это смотря для какой версии. Я проверял на Pabc.NET.

Добавлено через 1 минуту
А сам ТС еще не определился что и в чём ему надо...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.10.2015, 17:21
Помогаю со студенческими работами здесь

Найти все пары чисел в диапазоне от 1 до 20, сумма которых равна 20
Задача из ветки Haskell: (defun sum-n (n) (loop for a from 1 to (1- n) for b from (1- n) downto 1 collect `(,a...

среди чисел 1<n<100 найти все пары чисел, для которых их сумма равна произведению
среди чисел 1&lt;n&lt;100 найти все пары чисел, для которых их сумма равна произведению

найти все пары чисел, для которых их сумма равна произведению
среди чисел 1&lt;n&lt;100 найти все пары чисел, для которых их сумма равна произведению

Найти все пары взаимно простых чисел, сумма которых равна x
Вариант №11 Ввести натуральное число x. Найти все пары взаимно простых чисел, сумма которых равна x.

Массивы. Найти все пары чисел, для которых их сумма равна их произведению
среди чисел 1&lt;n&lt;100 найти все пары чисел ,для которых их сумма равнаих произведению


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru