Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
1 / 1 / 1
Регистрация: 08.04.2013
Сообщений: 6

Получить наиболее близкие друг другу три натуральных числа

08.04.2013, 08:28. Показов 1792. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано натуральное число n. Получить наиболее близкие друг другу три натуральных числа,сумма которых равная n.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.04.2013, 08:28
Ответы с готовыми решениями:

Найти две самые близкие друг к другу точки
Даны декартовы координаты N точек на плоскости. Составить программы решения следующих задач а) найти две самые близкие друг к другу...

Найти 2 элемента наиболее близкие к среднему арифметическому значению в массиве
Создать процедуру которая вычисляет среднее арифметическое всех элементов заданного (размерность задать с консоли) массива, а также найти 2...

Даны три двухзначных числа подсчитать числа являющиеся квадратами натуральных чисел
Даны три двухзначных натуральных числа. Подсчитать среди них количество чисел, являющихся квадратами натуральных чисел. Определить,...

1
 Аватар для russabirov2010
0 / 0 / 4
Регистрация: 10.04.2013
Сообщений: 10
10.04.2013, 21:27
Лучший ответ Сообщение было отмечено darik102 как решение

Решение

Дано натуральное число n. Получить наиболее близкие друг другу три натуральных числа,сумма которых равная n
Числа могут быть равны?

Добавлено через 8 минут
Мой код таков:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
  n, a, b, c, x: integer;
 
begin
  write('n= ');
  read(n);
  x := n mod 3;
  case x of
    0: 
      begin
        a := n div 3;
        writeln(a, ' ', a, ' ', a);
      end;
    1: 
      begin
        a := n div 3;
        b := a;
        c := a + 1;
        writeln(a, ' ', b, ' ', c);
      end;
    2: 
      begin
        a := n div 3;
        b := a + 1;
        c := b;
        writeln(a, ' ', b, ' ', c);
      end;
  end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.04.2013, 21:27
Помогаю со студенческими работами здесь

Наиболее близко расположенные друг к другу координаты из двух множеств
Доброго времени суток! Помогите создать программу которая сможет найти: наиболее близко расположенные (либо совпадающие) друг к другу...

Определить пару точек,которые наиболее близки друг к другу
1)Задано 10 точек , определить пару точек,которые наиболее близки друг к другу 2)Для 10 точек определить ,находятся они на окружности или...

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

Найти наиболее близко расположенные друг к другу координаты из двух множеств
Доброго времени суток! Помогите создать программу которая сможет найти: наиболее близко расположенные (либо совпадающие) друг к другу...

Найти наиболее близко расположенные друг к другу Координаты из двух множеств
Доброго времени суток! Помогите создать программу которая сможет найти: наиболее близко расположенные (либо совпадающие) друг к другу...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru