Подсчет количества "счастливых" билетов в ленте между заданными номерами

@vishnevskaya23_ · Регистрация: 28.08.2018

Студворк — интернет-сервис помощи студентам

Имеется лента билетов с шестизначными номерами. Первый билет имеет номер M, последний – N. Величины M и N отвечают следующему соотношению: 100000 ≤ M < N ≤ 999999. Необходимо определить количество «счастливых» билетов в ленте. Билет считается «счастливым», если сумма первых трех цифр равна сумме последних трех цифр.

Ввод
Ввод содержит построчно номера первого и последнего билетов в ленте.
Вывод
Необходимо вывести искомое количество «счастливых» билетов в ленте.

Ввод 1
111110
111112
Вывод 1
1

Ввод 2
100000
999999
Вывод 2
50412

@Puporev · 28.08.2018, 18:42

Если в лоб то так.

Pascal
1
2
3
4
5
6
7
8
9
10
var n,m,i,k:integer;
begin
writeln('Введите n,m=');
readln(m,n);
k:=0;
for i:=m to n do
if i div 100000+i div 10000 mod 10+i div 1000 mod 10=
i div 100 mod 10+i div 10 mod 10+i mod 10 then inc(k);
write('k=',k);
end.

@vishnevskaya23_ · 28.08.2018, 18:52 **[ТС]**

Если внимательней прочитать задачу, то при вводе чисел 111110 и 111112 в выводе будет 1.
А с этой программой такого результата нет.

@Puporev · 28.08.2018, 18:56

А что за число 111112Б?
Если ввести 111110 и 111112 выведет 1.

@vishnevskaya23_ · 28.08.2018, 19:04 **[ТС]**

Не знаю почему, но у меня выводит 0.

@Puporev · 28.08.2018, 19:10

Вот у меня

@vishnevskaya23_ · 28.08.2018, 19:32 **[ТС]**

Не знаю.
И при втором случае у меня тоже выдаёт не тот ответ.
Ввод: 100000 999999
Вывод должен получится 50412, но у меня 1203.

@vishnevskaya23_ · 28.08.2018, 19:37 **[ТС]**

Подсчет количества "счастливых" билетов в ленте между заданными номерами

@Puporev · 28.08.2018, 19:44

Сообщение от vishnevskaya23_

Ввод: 100000 999999
Вывод должен получится 50412, но у меня 1203.

У меня так. Не знаю что и в чем Вы там творите.

@vishnevskaya23_ · 28.08.2018, 19:53 **[ТС]**

https://edu.appcloud.su
На этом сайте. Не знаю почему не получается.

@Puporev · 28.08.2018, 19:58

Скачайте нормальную программу и бросьте нафиг все эти кривые онлайн сервисы.

@Human_foot · 28.08.2018, 23:16

Сообщение от Puporev

нафиг все эти кривые онлайн сервисы

Нет тут никакой кривизны. Очевидно, что integer определяется как 16-битное число, поэтому происходит переполнение при числах более 32к, и как следствие ошибка при выводе ответа в отсутствии директив переполнения. Замена integer на longint решит проблему. Но я бы тоже посоветовал использовать более современный онлайн-компилятор

@bormant · 29.08.2018, 12:49

Кстати, там FreePascal, {$mode ObjFPC} меняет картину

Pascal
1
2
3
begin
  WriteLn(SizeOf(Integer));
end.

Новые блоги и статьи Все статьи Все блоги /
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, то после закрытия окошка. . .
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 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

Подсчет количества "счастливых" билетов в ленте между заданными номерами

Решение

Решение

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6

	Подсчет количества "счастливых" билетов в ленте между заданными номерами 28.08.2018, 18:27. Показов 7113. Ответов 12 Метки нет (Все метки) Имеется лента билетов с шестизначными номерами. Первый билет имеет номер M, последний – N. Величины M и N отвечают следующему соотношению: 100000 ≤ M < N ≤ 999999. Необходимо определить количество «счастливых» билетов в ленте. Билет считается «счастливым», если сумма первых трех цифр равна сумме последних трех цифр. Ввод Ввод содержит построчно номера первого и последнего билетов в ленте. Вывод Необходимо вывести искомое количество «счастливых» билетов в ленте. Ввод 1 111110 111112 Вывод 1 1 Ввод 2 100000 999999 Вывод 2 50412 0

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6
	28.08.2018, 18:52 [ТС]
	Если внимательней прочитать задачу, то при вводе чисел 111110 и 111112 в выводе будет 1. А с этой программой такого результата нет. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.08.2018, 18:56
	А что за число 111112Б? Если ввести 111110 и 111112 выведет 1. 0

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6
	28.08.2018, 19:04 [ТС]
	Не знаю почему, но у меня выводит 0. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.08.2018, 19:10
	Вот у меня Миниатюры 1

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6
	28.08.2018, 19:32 [ТС]
	Не знаю. И при втором случае у меня тоже выдаёт не тот ответ. Ввод: 100000 999999 Вывод должен получится 50412, но у меня 1203. 0

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6
	28.08.2018, 19:37 [ТС]
	0

@vishnevskaya23_ 0 / 0 / 0 Регистрация: 28.08.2018 Сообщений: 6
	28.08.2018, 19:53 [ТС]
	https://edu.appcloud.su На этом сайте. Не знаю почему не получается. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	28.08.2018, 19:58
	Сообщение было отмечено vishnevskaya23_ как решение Решение Скачайте нормальную программу и бросьте нафиг все эти кривые онлайн сервисы. 0