Найти два числа зная их сумму - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.77/13:

@Вадим2000 0 / 0 / 0 Регистрация: 23.04.2018 Сообщений: 11

	Найти два числа зная их сумму 17.09.2019, 20:42. Показов 2649. Ответов 1 Метки нет (Все метки) Сумма двух натуральных чисел 139. Одно из них оканчивается цифрой 7. Если эту цифру зачеркнуть то получится второе число. Найдите эти числа. 0

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

17.09.2019, 20:42

Ответы с готовыми решениями:

Даны два числа. Числа вводятся с клавиатуры. Найти их сумму, разность, произведение и частное.
Здравствуйте. Пожалуйста напишите: Даны два числа. Числа вводятся с клавиатуры. Найти их сумму, разность, произведение и частное.

Найти минимальную сумму произведений по два числа из списка чисел
Задан список из четного количества целых положительных чисел.Написать функцию min_sum, которая возвращает минимальную сумму произведений по...

Ввести два целых числа N1 и N2. Если N1>n2 найти сумму. С циклом While
Ввести два целых числа N1 и N2. Если N1>n2 найти сумму. используя While или repeat

JuriiMW

5095 / 2661 / 2355

Регистрация: 10.12.2014

Сообщений: 10,060

18.09.2019, 04:36

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a,b:Integer;
begin
  a:=139;
  repeat
    dec(a);
    b:=139-a;
  until (a=0)or(a mod 10=7)and(a div 10=b);
  if a=0 then
    WriteLn('нет решения')
  else
    WriteLn(a:3,b:3);
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

18.09.2019, 04:36

Помогаю со студенческими работами здесь

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

Даны два ненулевых числа. Найти их сумму, разность, произвеение и частное
даны два ненулевых числа.найти их сумму,разность,произвеение и частное.

Среди трех чисел a, b, и c найти два числа, дающие минимальную сумму
Составить функцию VBA для нахождения среди трех чисел a, b, и c двух чисел, дающих минимальную сумму

Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.
Составить программу для решения задачи: даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей.

Даны два числа. Найти их сумму, разность, произведение и среднее арифметическое и геометрическое
Даны два числа. Найти их сумму, разность, произведение и среднее арифметическое и геометрическое.

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

Наверх