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

Найти счастливый билет

23.03.2016, 20:52. Показов 7522. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вы пользуетесь общественным транспортом? Вероятно, вы расплачивались за проезд и получали билет с номером. Счастливым билетом называют такой билет с шестизначным номером, где сумма первых трех цифр равна сумме последних трех. Т.е. билет с номером 385916 – счастливый, т.к. 3+8+5=9+1+6. Вам требуется написать программу, которая проверяет счастливость билета.

Входные данные

В единственной строке входного файла INPUT.TXT записано одно целое число N (0 ≤ N < 106).

Выходные данные

В выходной файл OUTPUT.TXT нужно вывести «YES», если билет с номером N счастливый и «NO» в противном случае.

Примеры
№ INPUT.TXT OUTPUT.TXT
1 385916 YES
2 123456 NO

Для 8 класса.Как можно легче решить ее.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.03.2016, 20:52
Ответы с готовыми решениями:

Счастливый билет 4
Счастливый билет 4 Билеты имеют четырѐхзначные номера от 0001 до 9999. Счастливым является билет, для номера которого выполняется...

Счастливый билет 3
Счастливый билет 3 Билеты имеют трехзначные номера от 001 до 999. Счастливым является билет, для номера которого выполняется условие,...

Программа проверки счастливый ли билет
Проверьте пожалуйста программу на правильность. Определяет счастливый ли трамвайный билет. program bilet; uses CRT; const s1=0; s2=0;...

2
Эксперт Pascal/Delphi
2388 / 1300 / 1492
Регистрация: 29.08.2014
Сообщений: 4,665
24.03.2016, 02:41
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var
  a: longint;
begin
  readln(a);
  if a div 100000+a div 10000 mod 10+a div 1000 mod 10=a div 100 mod 10+a div 10 mod 10+a mod 10 
  then writeln('Билет счастливый!')
  else writeln('Билет НЕ счастливый!');
end.
Добавлено через 23 секунды
а вообще внизу этой темы есть похожие темы и там все написано
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33407 / 21517 / 8236
Регистрация: 22.10.2011
Сообщений: 36,917
Записей в блоге: 12
24.03.2016, 10:58
Ну или подсчитывать сумму в цикле, правую тройку со знаком "+", левую - со знаком "-", и проверять результат на 0:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  a, s: longint;
begin
  readln(a);
  for var i : integer := 0 to 5 do
  begin
    s := s + (1 - 2*(i div 3))*(a mod 10);
    a := a div 10;
  end;
  
  if s = 0 then writeln('Билет счастливый!')
  else writeln('Билет НЕ счастливый!');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.03.2016, 10:58
Помогаю со студенческими работами здесь

счастливый билет
нужно составить программу которая определяет счастливый билет или нет номер билета состоит из 6 чисел вводиться его номер если сумма 1...

Счастливый билет
Счастливый билет Уезжая утром в школу, ученик Саша заметил, что сумма цифр, стоящих на четных местах в его билете равна сумме цифр,...

Счастливый билет
Облазил поисковики- ничего не нашел:( Вот задачка: Заранее всем спасибо !Текстовую часть задания набирайте вручную.

Счастливый билет
для начала небольшие пояснения: В билете 6 цифр (билеты от 000001 до 999999) Счастливый билет , это тот, в котором сумма первых трёх...

"Счастливый билет" с использованием repeat
Необходимо составить программу &quot;счастливый билет&quot; с помощью циклов repeat. Заранее спасибо.


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru