Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/25: Рейтинг темы: голосов - 25, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 24.04.2015
Сообщений: 21
1

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)

18.06.2017, 13:57. Показов 5149. Ответов 4

Напечатать номера счастливых билетов(сумма первых трех цифр, равна сумме вторых трех цифр 6-ти значного числа)
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.06.2017, 13:57
Ответы с готовыми решениями:

Определить, равна ли сумма первых трех цифр, сумме последних трех цифр
С клавиатуры вводится натуральное шестизначное число.Проверить: а) равна ли сумма первых трех...

Счастливым называется шестизначное число, у которого сумма его первых трех цифр равна сумме его трех последних цифр
Опледелить является ли заданное шестизначное число счастливым? "Счастливым называется...

Счастливым называется семизначное число, у которого сумма его первых трех цифр равна сумме его трех последних цифр
Семизначное число называется "Счастливым", если у него сумма первых трех цифр равна сумме последних...

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

4
4660 / 2346 / 2216
Регистрация: 10.12.2014
Сообщений: 9,032
19.06.2017, 05:23 3
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

ZX Spectrum-128, там реализован ответ на вопрос „количество счастливых билетов“.
Для печати самих билетов проще сделать так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c,d,e,f : Byte;
begin
  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to 9 do
    for e := 0 to 9 do
      for f := 0 to 9 do
  if a+b+c = d+e+f then
    Write(a,b,c,d,e,f,#32);
end.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6187 / 3708 / 2563
Регистрация: 22.11.2013
Сообщений: 10,601
Записей в блоге: 1
20.06.2017, 11:34 4
JuriiMW,
можно сильно сэкономить:
Pascal
1
2
3
4
5
6
7
  for a := 0 to 9 do
    for b := 0 to 9 do
      for c := 0 to 9 do
  for d := 0 to Min(9,a+b+c) do
    for e := 0 to Min(9,a+b+c-d) do
      if a+b+c-d-e in [0..9] then
        Write(' ',a,b,c,d,e,a+b+c-d-e);
Нужно сэкономить и на левой границе, чтобы результат a+b+c-d-e всегда попадал в [0..9].

Добавлено через 8 минут
Пожалуй, в сухом остатке так:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function Min(a, b: Integer): Integer;
begin
  if a<=b then min:=a else min:=b;
end;
function Max(a, b: Integer): Integer;
begin
  if a>=b then max:=a else max:=b;
end;
var a, b, c, d, e: Integer;
begin
  for a:=0 to 9 do for b:=0 to 9 do for c:=0 to 9 do
  for d:=Max(0,a+b+c-2*9) to Min(9,a+b+c) do
    for e:=Max(0,a+b+c-d-9) to Min(9,a+b+c-d) do
      Write('  ', a,b,c,d,e,a+b+c-d-e);
end.
0
4660 / 2346 / 2216
Регистрация: 10.12.2014
Сообщений: 9,032
20.06.2017, 11:52 5
bormant, я всё это прекрасно понимаю.
Но, в первую очередь, я показал возможную простоту решения задачи для восприятия уровня ТС.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2017, 11:52

Получить все шестизначные счастливые номера (где сумма первых трех цифр равна сумме последних трех цифр)
Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, в...

Написать программу: сумма первых трех цифр числа равна сумме его последних трех цифр.
Получить все шестизначные счастливые номера. Счастливым называют такое шестизначное число, для...

Подсчитать число тех счастливых билетов, у которых сумма первых трех цифр равна 13
Билет называют счастливым,если в его номере сумма первых трех цифр равна сумме последних трех...

Определить "счастливые" числа (сумма первых трех цифр равна сумме последних трех цифр)
Данные четыре шестизначных числа. Определить среди них &quot;счастливые&quot; числа (сумма первых трех цифр...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru