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

Определить сколько существует «счастливых» автобусных билетов

04.12.2016, 11:33. Показов 4223. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Определить сколько существует «счастливых» автобусных билетов в одной серии с номерами от 000000 до 999999. «Счастливым» считается билет, сумма первых трех цифр которого равна сумме вторых трех цифр.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
04.12.2016, 11:33
Ответы с готовыми решениями:

Определить количество счастливых билетов
Посчитать сколько существует шестизначных чисел от 100 000 до 999 999, "Счастивых билетов", у которых равны суммы цифр первых трёх и...

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

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

1
Модератор
10423 / 5711 / 3402
Регистрация: 17.08.2012
Сообщений: 17,371
05.12.2016, 03:35
Лучший ответ Сообщение было отмечено gogo2099 как решение

Решение

gogo2099, этой задачи на форуме - как грязи. Всегда пользуйтесь поиском по форуму, прежде чем создавать тему. Писать в очередной раз то, что уже +100500 раз написано - скучно. Так что вот Вам малость оптимизированное решение этой задачки методом перебора:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var i, j, k, s: integer;
    a: array[0..13] of integer;
begin
  for i := 0 to 13 do a[i] := 0;
  s := 0;
  for i := 0 to 9 do
    for j := 0 to 9 - (9 + i) div 13 * (9 + i) mod 13 do
      for k := 0 to 9 - (9 + i + j) div 13 * (9 + i + j) mod 13 do
        inc(a[i + j + k]);
  for i := 0 to 13 do s := s + sqr(a[i])
  writeln(2 * s);
  readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.12.2016, 03:35
Помогаю со студенческими работами здесь

Сколько существует счастливых четырехзначных билетов?
10. Сколько существует «счастливых» четырехзначных билетов? Счастливым считается билет, у которого сумма первых двух цифр равна сумме двух...

Определить количество счастливых билетов, если длина номера = N цифр
Напишите код на паскаль АВС, заранее спасибо ))) Номера билетов на автобус состоят из чётного количества цифр. Счастливым считается...

Сколько существует счастливых автобусных билетов одной серии
определить сколько существует счастливых автобусных билетов одной серии с номерами от 000000 до 999999. счтастливым считается билет,сумма...

Сколько существует счастливых шестизначных билетов от 000000 до 999999
сколько существует счастливых шестизначных билетов от 000000 до 999999??заранее спасибо))

Подсчитать количество “счастливых” автобусных билетов.
Подсчитать количество “счастливых” шестизначных автобусных билетов, т.е. таких, в номерах которых сумма трех первых цыфер равна сумме трех...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf
8Observer8 01.02.2026
Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли
8Observer8 30.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm
8Observer8 30.01.2026
Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 29.01.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru